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PREFAZIONE 


Quest’opera si rivolge al principiante desideroso di apprendere il linguaggio 
più popolare nel mondo del personal e home computer. 

Come tutte le “lingue viventi”, il BASIC è applicato in realtà a questa o a 
quella macchina sotto forma di “dialetti” più o meno particolari. Questo libro 
si sforza di descrivere in modo metodico i BASIC delle tre macchine più 
diffuse: TRS 80; Apple; P.E.T. ed i loro derivati. Questo approccio comparato 
permette di approfondire la conoscenza del linguaggio e dà un’idea del grado 
di standardizzazione del BASIC. Ciò faciliterà anche la conversione di pro¬ 
grammi scritti per altre macchine. 

La maggior parte dei BASIC ha conosciuto delle estensioni successive, 
particolarmente per ciò che riguarda la gestione di archivi (files). L’uso dei 
dischi (e più spesso di mini dischi a grande capacità) è di gran lunga il più valido 
per una seria gestione di file; queste estensioni sono poco standard, soprattutto 
sulle macchine ad uso professionale e la loro descrizione non è prevista in 
questo libro. 


Michel Plouin, 35 anni, ingegnere, è consigliere alla direzione d'informatica 
d’una impresa francese. 

Ha praticato la programmazione nell’insegnamento o in veste di consulente, 
ma anche per proprio gusto personale. 

Questo passatempo che si avvicina ai giochi così detti nobili, come il bridge o gli 
scacchi, può avere sbocco in numerose realizzazioni concrete, e particolarmente 
in campo pedagogico. 
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CAPITOLO 1 


INTRODUZIONE 


Il miglior modo per apprendere un linguaggio come il BASIC è di incomin¬ 
ciare la lettura di questo libro con una macchina in funzione. È il grande 
vantaggio dei personal computer e conviene approfittarne. Il lettore che ha già 
famigliarità con la tastiera di un computer potrà passare al capitolo seguente. 

Il tasto che non deve essere dimenticato 

Il primo riflesso che deve essere acquisito riguarda il tasto di “ritorno linea” 
(“Enter” sul T.R.S., “Return” sull’Apple e sul P.E.T.). Si deve tener presente 
che la macchina non fa altro che obbedire (stupidamente?) a degli ordini e che è 
necessario anche avvertirla quando si è finito di esprimerne uno. Infatti 
ciascun comando o linea di programma impostati sulla tastiera vengono presi 
in considerazione solo dopo la pressione del tasto “Return” o “Enter”. Per 
facilitare le cose, certi ordini possono essere dati battendo un solo tasto 
speciale, per esempio l’azzeramento dello schermo (tasto CLEAR sul T.R.S.. 
CLS sul P.E.T.). Certe macchine permettono anche di definire una serie di 
funzioni particolari mediante tasti speciali: ciascuno corrispondente ad un 
carattere speciale che la macchina riconosce come un ordine completo. 

Altri tasti speciali 

Un altro metodo permette di avere un gran numero di caratteri speciali: 
questi si ottengono con l’aiuto di un tasto “Control” (tasto CTRL dell’Apple) 
che rende speciali i tasti che vengono battuti mentre il suddetto tasto è 
abbassato. In questo caso si manipolano due tasti ma c’è una sola battuta ed un 
solo carattere emesso dalla tastiera verso la macchina. Il tasto “Control” 
(Controllo) può essere combinato con il tasto “Shift”: si manipolano in questo 
caso tre tasti per generazione di .un carattere, (esempio: cancellazione dello 
schermo sull’Apple con il CTRL - @ vale a dire CTRL-SHIFT-P). Questo 
metodo permette di ottenere 32 caratteri speciali (corrispondenti alle due 
prime linee della tabella ASCII in Appendice.) con un solo tasto supplementa¬ 
re in tastiera. 

Un altro tasto particolare è il tasto “Escape” (ECS sull’Apple). Questo 
rappresenta un carattere speciale (tra quelli speciali...) indica che il carattere 
normale che segue rappresenta un ordine speciale. Ci sono allora due battute 
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successive e due caratteri emessi verso la macchina. Queste sequenze Escape, 
utilizzate dall’Apple, sono molto ricorrenti per comandare stampanti o termi¬ 
nali intelligenti. 


Esercitatevi sulla tastiera 

Se battete un tasto a caso, poi in tasto Enter/Return, otterrete in generale un 
messaggio di errore, poi il passaggio a capo con il carattere di “pronto”. 
Questo carattere indica che la macchina è pronta e attende un ordine. Esso 
permette anche di riconoscere quale linguaggio è attivo quando la macchina ne 
possiede diversi. 

Nel momento in cui si impostano dei caratteri, la macchina provvede mano a 
mano alla visualizzazione e permette il ritorno indietro per eventuali correzio¬ 
ni. 

Quando si batte il tasto Enter/Return, la macchina analizza l’ordine ricevu¬ 
to e provvede alla sua esecuzione. L’esecuzione è immediata se l’ordine non 
comincia con caratteri numerici; se l’ordine comincia con una cifra, viene 
inserito in memoria con quel numero per la successiva esecuzione: così si scrive 
una linea di programma. 

Il sistema di esecuzione immediata è chiamato comando; l’ordine, preceduto 
da un numero, è chiamato istruzione. La maggior parte degli ordini possono 
essere eseguiti sia come comandi che come istruzioni; si vedrà che ciò è molto 
pratico per mettere a punto i programmi, provate vari comandi: per esempio 
scrivete: 

PRINT “CUCU” (Enter/Retur) 

PRINT 256 + 1024 (Enter/Return) 

Provate un programma costituito da due linee: 

1 PRINT “CUCU (Enter/Return) 

2 GOTO 1 (Enter/Return). 

Non accadrà nulla! Esaminate invece il vostro programma scrivendo: 

LIST (Enter/Return) 

Attivate l’esecuzione scrivendo: 

RUN (Enter/Return) 

Provate a fermare... (sull’Apple Control-C). 

Non abbiate paura di fare esperimenti. Non c’è rischio di sciupare nulla nel 
battere (moderatamente) la tastiera. La cosa peggiore che vi può succedere è di 
dover spegnere e poi riaccendere la macchina se non riuscite a riprenderne il 
controllo. 


2 


Il microprocessore 

Un linguaggio per l’informatica serve a fare funzionare una macchina dando 
degli ordini a un dispositivo di calcolo (un microprocessore nelle macchine che 
ci interessano) associato a diverse risorse come le memorie e le periferiche. 

Il lavoro del microprocessore consiste nell’andare a cercare un ordine 
immagazzinato nelle memorie, riconoscerlo ed eseguirlo. Esso può realizzare 
diverse operazioni elementari alla cadenza di 100.000 cicli al secondo, ma è 
necessario fornirgli ogni spiegazione. 

La programmazione 

Un linguaggio evoluto, come il BASIC, permette di esprimere questi ordini 
elementari in modo sintetico, liberando il programmatore da compiti fastidio¬ 
si, grazie ad un vocabolario e a regole d’impiego molto facili da tenere a mente. 

La nozione di variabile, affrontata nel Capitolo 2, libera il programmatore 
dalla minuziosa gestione della memoria. Essa permette di dare un nome 
simbolico alle diverse informazioni che si possono in tal modo manipolare 
senza preoccuparsi di dove esse sono immagazzinate nella memoria. 

Queste informazioni, delle quali si può disporre con la semplice menzione 
del loro nome, saranno manipolate per mezzo delle istruzioni di calcolo e delle 
funzioni descritte nel Capitolo 3, funzioni numeriche e funzioni che lavorano su 
caratteri alfanumerici. 

Lo svolgimento delle azioni comandate da tutte queste istruzioni non viene 
fatto a caso: una famiglia di istruzioni logiche, descritte nel Capitolo 4, consente 
di dare una struttura logica ai programmi. Queste istruzioni permettono di fare 
dei test, di andare mediante passi successivi da una parte all’altra di un 
programma, di ripetere più volte una serie di operazioni. 

Inoltre è necessario fare comunicare la macchina con l’esterno essenzialmen¬ 
te per mezzo di una- tastiera di uno schermo e, eventualmente, di altri dispositi¬ 
vi di “I/O” (entrata-uscita) o periferici: questo è l’oggetto del Capitolo 5, che 
descrive le istruzioni di dialogo con la macchina ed il suo programma. 

Il BASIC dispone di potenti funzioni speciali che numerosi linguaggi evoluti 
utilizzati nell’informatica professionale non hanno: simulazione con numeri 
casuali, comunicazione diretta con la memoria. La chiamata di un sottopro¬ 
gramma in linguaggio macchina esiste in genere anche negli altri linguaggi 
evoluti. Ciò è descritto nel Capitolo 6. 

I piccoli sistemi normalmente permettono anche effetti grafici disponibili di 
solito su qualche sistema professionale specializzato e costoso. Questi effetti 
speciali sono esaminati nel Capitolo 7; in questo campo, l’evoluzione tecnica è 
rapidissima e le novità all’ordine del giorno. 
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Si constaterà che la standardizzazione dei BASIC pressoché completa per le 
istruzioni elementari, scompare quando si desiderano sfruttare tutte le possibi¬ 
lità particolari di un sistema (effetti grafici colore, effetti acustici). Ci siamo 
impegnati a sperimentare queste varianti e a confrontare le macchine più 
diffuse; non abbiamo descritto certe funzioni troppo specifiche, come la 
memorizzazione dei files su cassette, le possibilità di editing, le funzioni dei 
sistemi dotati di dischi (DOS) che vanno oltre lo scopo di quest’opera. 

Il Capitolo 8, “Preparazione dei programmi”, descrive i problemi che si 
pongono al momento della concezione di un programma, della sua messa a 
punto e della sua ottimizzazione. 

All’appendice 1 troverete una descrizione del codice ASCII che è la base di 
ogni scambio d’informazione tra macchine e periferiche; esso standardizza la 
codificazione in binario delle informazioni alfanumeriche. In linea di massima, 
i caratteri speciali, che servono a ordinare differenti azioni collegate alla 
macchina, dovrebbero inserirsi in questo codice: abbiamo descritto i caratteri 
speciali e le funzioni dei tasti di tre delle macchine più diffuse (Apple II, P.E.T. 
e TRS-80). 

Per comprendere bene la rappresentazione dell’informazione per mezzo di 
un codice, o più generalmente ciò che è scritto nella memoria di un computer, è 
necessario avere qualche nozione di calcolo binario o esadecimale, che sono 
brevemente affrontate nell’Appendice 2. 

Inoltre, abbiamo riunito nell’appendice 3 degli esempi di programmi. Si 
tratta di programmi completi che illustrano alcune possibilità di applicazione e 
che sono raccompandati allo scopo di permettere la comprensione e l’adatta¬ 
mento da parte del lettore. 

Troverete infine un repertorio di istruzioni e parole chiave in BASIC, che si 
intende completo per certo numero di Personal Computer attualmente dispo¬ 
nibili. Sono indicate le eventuali particolarità e con l’aiuto di esempi sono 
presentate le funzioni dell’istruzione e il suo formato. 
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CAPITOLO 2 


LE VARIABILI 


Il principale vantaggio dei linguaggi evoluti è quello di dispensare il pro¬ 
grammatore dalla manipolazione dei dati direttamente in memoria. 

Con il BASIC basta dar loro un nome senza conoscere il luogo esatto dove 
rinformazione verrà posta. Ecco perchè anche questi linguaggi vengono chia¬ 
mati simbolici. 

Questa nozione di variabile non ha niente a che vedere con le variabili e le 
incognite utilizzate nelle funzioni e nelle equazioni algebriche. 

Essa designa semplicemente un’informazione chiamata con un nome, in 
opposizione a una costante che è un’informazione (numeri e caratteri) che 
appare semplicemente nell’istruzione in corso di esecuzione. 

Bisogna rispettare certe regole (restrittive) nella scelta dei nomi. 

Per contro, si possono scegliere parecchi metodi di immagazzinamento delle 
informazioni nella memoria e certe istruzioni speciali permettono di conoscere 
la locazione esatta assegnata dal BASIC che tiene aggiornate in permanenza le 
tabelle delle variabili incontrate dall’inizio dell’esecuzione di un programma. 


J.0 REM ESEMPI DI VARIABILI 
20 II = J + K 
30 N “ N + 1 

00 A% *» INT<A) : A» = • + “ 

SO REM A,A7. ED A* SONO VARIABILI DISTINTE 
60 REM 1 <2.30) E • + • (2.00) SONO DELLE COSTANTI 


.1.0 REM ESEMPI DI PAROLE RISERVATE 

20 T = TOTALE + TI :REM ERRORE FACILE DA RILEVARE 

30 NI » NOTA)REM ERRORE PIU' SUBDOLO 

00 REM DA' NI » OPPOSTO LOGICO DI A (NOTA E NOI A CONFUSI) 


LO REM ESEMPIO DI CONFUSIONE TRA 2 NOMI 

20 NUM = NUMERO + 1 ÌREM ERRORE NON SEGNALATO 

30 REM EQUIVALE A NU = NI) + 1 


10 REM SI DISPONE DI PARECCHIE MIGLIAIA DI NOMI 
20 REM Al - Z9 PIU' AA - ZZ FANNO 936 COMMBINAZIONI 
30 REM SI ARRIVA CON O FORMATI A 3700 1 X * # > 

00 REM E ANCORA PIU' CON INSIEMI < T O T< !>...) 
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10 REM TIPO DEFINITO ESPLICITAMENTE CON SUFFISSO 

20 17 . = 3 :REM FORMATO INTERO - 2 BYTES 

30 Al. = ■ Z " : REM FORMATO STRINGA <1 BYTE PER CARATTERE > 

40 REM SUFFISSI PARTICOLARI AL TRS i 

50 REM D* (DOPPIA PRECISIONE - 16 CIFRE). R! (REALE SEMPLICE PRECISIONE - 
6 CIFRE) 


10 REM OTTIMIZZAZIONE ! VELOCITA ' E OCCUPAZIONE DI MEMORIA SONO 
20 REM 2 CRITERI ANTAGONISTI ( SI PUÒ' SEMPRE MIGLIORARE L'UNO 
A DETRIMENTO DELL'ALTRO) 

30 REM OCCUPAZIONE DI MEMORIA ! UTILIZZARE NOMI CORTI.POCO NUMEROSI 
40 REM VELOCITA' : LA TAVOLA DEI NOMI E' COSTITUITA NELL'ORDINE 
50 REM D'APPARIZIONE NEL PROGRAMMA. SI FARA' IN MODO 
60 REM CHE LE VARIABILI CHIAMATE FREQUENTEMENTE APPAIANO 
70 REM IN PRIMO. LE COSTANTI RALLENTANO L'ESECUZIONE 

00 REM IMMAGAZZINARLE ALL'INIZIO IN UNA "VARIABILE“ (ES. NI - 1 IN PRINCIPIO) 


Nomi delle variabili 

Nei personal computer più correnti, il BASIC si avvale al massimo dei nomi 
di due caratteri (uno solo per TRS livello I). Il BASIC ignora generalmente i 
caratteri che seguono i nomi più lunghi; è pericoloso utilizzare quest’agevola¬ 
zione a causa del rischio di confusione se due nomi incominciano con due 
identici caratteri. 

D’altra parte, i nomi non devono contenere delle combinazioni di caratteri 
che formino una parola del linguaggio (istruzioni, comandi) che si chiamano 
per questo motivo parole riservate. Così TOTAL sarà respinto perchè i due 
primi caratteri formano la parola riservata TO. Con i nomi di uno o due 
caratteri, il rischio è minimo; TO, IF, ON, OR e AT in BASIC sono general¬ 
mente, parole riservate. 

È grazie a questa regola delle parole riservate che il BASIC può ignorare gli 
spazi nelle istruzioni. L’omissione degli spazi non aiuta la chiarezza dei pro¬ 
grammi, ma economizza l’ingombro se la disponibilità della memoria è limita¬ 
ta. 

Nei BASIC che autorizzano nomi di variabili con più di due caratteri è più 
facile avere dei nomi espliciti (per esempio Somma al posto di S)ed i program¬ 
mi risultano quindi più chiari; ma sono anche molto più voluminosi, ivi 
comprese le tabelle gestite dal BASIC. 

Il suffisso che definisce un tipo di variabile (vedere formati) fa parte inte¬ 
grante del nome e aumenta il numero di variabili disponibili simultaneamente; 
per esempio A, A% e A$ sono tre variabili distinte. Sarà dunque raro il caso di 
limitazione del numero dei nomi possibili. Ciò nonostante, l’utilizzazione dei 
nomi mnemonici porta a diminuire gradualmente il numero delle possibilità, 
(W, Y, H sono delle lettere poco utilizzate come abbreviazioni). 
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J.0 REM TIPI DI VARIABILI 

20 REM IN ASSENZA DI INDICAZIONI IL TIPO E' REALE <IMP! ICITO) 
30 REM % SUFFISSO DI VARIABILE INTERA 
T0 REM * • • 'STRINGA 

50 F<EM 

60 REM ALTRI SUFFISSI NON STANDARD 
70 REM ! REALE SEMPLICE PRECISIONE <TRS> 

80 REM * REALE DOPPIA PRECISIONE <TRS) 

?0 REM ES. 

100 XX = 3 ÌREM OCCUPA 2 BY'TES IN MEMORIA 

110 IX = 55000 :REM ERRORE : LIMITE - 32760 A 32767 
120 A* = • BUONGIORNO- 

130 PI = 3.1 -TI59265351 REM CHE VOGLIO INSEGNARE UN NUMERO 
UTILE AI PIU' BRAVI 


10 REM DEFINIZIONE ESPLICITA <TRS> 

20 DEFINT Arl-N -.REM Al. AZ.I 7 L.PrN 9 SONO INTERI 

30 DEFSTR AB.Z !REM AB47 = STRINGHE. AA.AC RESTANO INTERI 

T0 DEFDBL D '.REM DOPPIA PRECISIONE < 16 CIFRE . 8 BYTES) 

50 DEFSNG S .REM SEMPLICE-< 6 CIFRE . -* BYTES > 

60 REM II. NOME DELLE VARIABILI OCCUPA TRE BYTES OLTRE I DATI 


10 REM ACCESSO AL DATO IN MEMORIA <TRS> 

20 P = 3.1-1 

30 A = VARPTR <P> IREM PUNTATORE DELLA VARIABILE 

-10 PRINT F’EEK <A> .F'EEK <A+1>»PEEK <A+2>,PEEK <A+3> 

I ! ! 

CIFRE MENO SIGNIFICATIVE ! ESPONENTE » 128 
CIFRE PIU' SIGNIFICATIVE 
50 Z* = •• 

60 A = VARPTR <Z*> !REM ACCESSO ALLA LISTA DELLE CATENE 

70 PRINT F'EEK (A) -REM LUNGHEZZA (IN QUESTO CASO 6 > 

80 Al - F'EEK <A+1) + 256*PEEK (A+2) IREM INDIRIZZO DELL' INIZIO 

90 PRINT CHR* (PEEK <A1)> IREM LETTERA -C* 


Formati e tipi di variabili 

I differenti formati di variabili (o di costanti) permettono di codificare, sia 
per il programmatore che per il processore che lavora a livello linguaggio- 
macchina, il modo in cui le differenti informazioni immagazzinate o manipola¬ 
te sono rappresentate in memoria. 

Prima di tutto esiste un formato per i numeri interi algebrici (cioè con un 
segno); è il formato unico per BASIC limitati (esempio Apple con l’Integer 
Basic). Nei BASIC usuali, una variabile il cui nome contiene il suffisso % è 
trattata in formato intero. Le operazioni sui numeri interi hanno per risultato 
un numero intero, specialmente la divisione che da un quoziente tronco, non 
arrotondato. 

L’interprete BASIC, per trattare un numero che ha riconosciuto di formato 
intero, riserva automaticamente due byte, il che limita i numeri interi ai valori 
da —32767 a + 32767 (cf. appendice: calcolo esadecimale). Una costante senza 
punto decimale (nel BASIC il punto anglosassone prende il posto della virgola) 
è ritenuta intera; la stessa costante sarà trattata come reale se si aggiungerà un 
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punto decimale: per esempio 3. al posto di 3 semplicemente. 

Con alcuni BASIC ci si può liberare dal suffisso % che è poco piacevole da 
trattare, definendo come interi tutta una categoria di nomi di variabili. 

DEFINT I - N ricorderà certe abitudini a coloro che sono abituati al 
FORTRAN, linguaggio nel quale sono implicitamente definite come intere le 
variabili i cui nomi cominciano per I, J, K, L, M o N. Questa definizione entra 
in gioco dopo l’esecuzione dell’istruzione (define Integer) e non per tutto il 
programma. Essa può essere messa in causa per ulteriori definizioni possono 
coesistere le variabili dotate di suffisso, e A% sarà distinto da A a meno che 
quest’ultimo sia stato dichiarato intero. 


10 REM PROGRAMMA NON OTTIMALE < MA CHIARO > 
20 FOR I = 1 TO K + 25 STEP U 
30 N - N + 1 1REM CONTATORE 

TO PRINT A.B 
50 NEXT 


10 REM VERSIONE OTTIMIZZATA < MENO LEGGIBILE ) 

20 UX-lt FOR I-UZ TO K + 25 STEP U1N » N+ UX: PRINT A.B: NEXT 
30 REM E' BENE GENERALMENTE DARE UN NOME DI VARIABILE 
T0 REM A TUTTE LE • COSTANTI ■ COSI’ RAGGRUPPATE IN UNA 
50 REM PARTE DEL PROGRAMMA. CIO' FACILITA LA MESSA A PUNTO 
60 REM E SOPRATTUTTO LE MODIFICHE O CAMBIAMENTO DI MACCHINA 
70 REM ES. : 6T CHE DIVENTA T0 CARATTERI PER LINEA ECC. . . 


10 REM ES.! DI COSTANTE CARATTERE 

20 REM IN UN PROGRAMMA LUNGO E’ BENE FARE UNA TAVOLA 
30 REM DEI MESSAGGI < MIGLIORE COERENZA. MODIFICA SEMPLICE) 
T0 ZI* = 'RICOMINCIA DALL' INIZIO* 

50 Z2* - 'INTRODUCETE L' ARTICOLO SEGUENTE' 


La convenzione DEFINT I - N ereditata dal FORTRAN è molto pratica 
per i numeri interi, particolarmente gli indici; è un pò uno standard di fatto ma 
niente impedisce, secondo i bisogni, di allargare o restringere un gruppo di 
variabili dichiarate intere. 

Per un piccolo programma semplice si può sovente trascurare il tipo di 
variabile intera e lavorare con dei reali (tipo di standard implicito, cioè in 
assenza d’indicazione contraria); si tratta di formati per indicare al BASIC 
come immagazzinare e trattare i numeri, e niente impedisce di trattare un 
numero intero come un numero reale. 

Per contro, per un programma voluminoso o la cui velocità di esecuzione è 
critica, sarà conveniente utilizzare il formato intero che porta a un guadagno di 
spazio e di velocità. 
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Quando un’informazione non è numerica, generalmente alfanumerica, la si 
designerà con il termine stringa di caratteri o variabile di tipo carattere. Le 
stringhe di caratteri sono designate con dei nomi, secondo le stesse regole delle 
variabili numeriche, seguiti però dal carattere $. A$ è distinto da A e da A%. 

Come per le variabili numeriche, certi BASIC permettono di eliminare il 
suffisso dollaro con una definizione esplicita (DEF STR). 

Si chiama costante quando l’informazione è presente nel corpo dell’istruzio¬ 
ne invece di essere designata con il suo nome. Se si tratta di una costante di tipo 
carattere, essa deve essere messa tra virgolette, il che permette al BASIC di 
distinguerla da un nome di variabile. 


Calcoli ed espressioni numeriche 

Un’espressione numerica è un insieme di calcoli eseguiti o da eseguire a 
partire da costanti o da variabili. 

Il segno uguale, nell’istruzione di assegnazione non ha niente a che vedere 
con la constatazione di una eventuale eguaglianza (segno = utilizzato nell’i¬ 
struzione IF). 

Esso dà l’ordine all’interprete BASIC di valutare l’espressione a destra del 
segno = e di copiare il risultato nella variabile il cui nome è posto a sinistra. 

LET A = B + C (assegnare ad A il valore B + C) 

Il LET è sovente facoltativo ed è molto pratico ometterlo perchè è l’istruzio¬ 
ne di più frequente utilizzo, ma in questo caso non si tratta più di un BASIC 
standard; la comprensione del segno = è generalmente il primo ostacolo che si 
incontra quando si scopre la programmazione. 

Attenzione, esiste il rischio di conflitto tra i vari formati. Il caso più semplice 
consiste nel voler fare dei calcoli pertendo dalla lettere: si commetterà un 
errore. Al contrario, l’assegnazione di un risultato numerico a una variabile di 
tipo carattere potrà essere realizzata per conversione: per esempio, il numero 
1979 diventa una catena di 4 caratteri: 1, 9, 7, 9. 

Le conversioni più delicate implicano l’unione di interi e di reali: l’interprete 
converte, ad ogni operazione mista, l’intero in reale (o il reale semplice in reale 
doppia precisione). Ma non può fare meglio; in un’espressione un pò complica¬ 
ta, un numero può essere troncato prima di essere convertito alla precisione 
superiore, da cui degli errori minimi (perdita di precisione che si aggrava per 
ripetizione) e degli errori grossolani (percentuali troncate a 0 prima di essere 
moltiplicate per 100 e addizionate: si trova 0) che sono più facilmente scopribi¬ 
li. 

Nel modo comando l’espressione Print permette di sorvegliare facilmente 
ciò che succede senza conoscere a memoria le regole di conversione. 

I segni utilizzati sono gli stessi usati in matematica con qualche limitazione 
dovuta alle macchine: + e — sono identici; per la moltiplicazione si usa il segno 
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* invece del segno X e non può essere omesso come in algebra. 

Contrariamente alla confusione che fanno gli uomini, la macchina non 
rischia di confondere il segno della moltiplicazione con la x minuscola. 

Ragioni di carattere tipografico impediscono di segnare gli esponenti con 
piccoli caratteri scritti più in alto: si utilizza quindi il carattere* oppure t 
(freccia rivolta verso l’alto). Per la stessa ragione le linee di frazione sono 
oblique / e prendono il posto del segno diviso ed i denominatori figurano sulla 
linea orizzontale dei numeratori. 

+ - * / t 

Bisogna porre attenzione all’ordine di priorità nella valutazione delle espres¬ 
sioni: nei casi semplici esso corrisponde al “buon senso”; per esempio A + 3 * 
B vale come A + (3 * B) e non (A + 3) * B. 

Quando l’espressione si complica, è prudente utilizzare le parentesi che sono 
calcolate con priorità e permettono al programmatore di gestire l’ordine dei 
calcoli. 

Usualmente il problema si pone con una frazione (divisione) seguita da una 
moltiplicazione: non c’è più alto (numeratore) e basso (denominatore) ed è 
prudente scrivere (A/B) * C piuttosto che conoscere a memoria le regole (esse 


11) REM ISTRUZIONE DI ASSEGNAZIONE 

20 LET A = B + C i REM LET E' FACOLTATIVO 

30 N = N + 1 : REM ES.: FREQUENTE < COME CONTATORE ) 


10 REM ES.) ISTRUZIONE TROPPO LUNGA < RISCHIO DI ERRORE > 

20 PRINT (—B + 5QR<B»B -4*A»C>)/<2*A> 

30 REM STESSO CALCOLO SCOMPOSTO 
40D = B*B-4*A*C 

45 REM POSSIBILE AGGIUNTA DEL CONFRONTO ’ D > 0 •. TRALASCIATO QUI 
50 D - SOR ( D )t XI • C--B + D ) / < 2 * A > 

60 PRINT ■ RADICE = -.Xl 

70 REM MESSA A PUNTO PIU' FACILE MA PROGRAMMA PIU' LENTO E 
80 REM CON MAGGIORE OCCUPAZIONE DI MEMORIA 

10 REM ES. DI ERRORE PER CONVERSIONE ABUSIVA 
20 REM AUMENTO DEI SALARI DEL 12% 

30 INPUT -QUALE E' IL VOSTRO SALARIO -)SA 
40 TX = 12/100 l AU - SA * TX 

50 PRINT ■ AVETE AVUTO UN AUMENTO DI -iAUJ- LIRE* 

RUN 


possono variare da un BASIC all’altro) e scrivere A/B * C che vale come (A/B) 
* C e non A/ (B * C). 

Quest’ordine di priorità riguarda anche le conversioni. 

Per esempio nel calcolatore una percentuale con A e B interi, (A/B) * 100 
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potrà valere 0 se A< B, ed è consigliabile eseguire prima le moltiplicazioni. 

Se si lavora su numeri molto grandi o molto piccoli, bisogna diffidare delle 
espressioni complicate: troppe moltiplicazioni intermedie possono dare un 
numero troppo grande (che supera la capacità), troppe divisioni un numero 
nullo. 



Ad eccezione di ragioni particolari (disponibilità di memoria) non è bene 
scrivere istruzioni molto lunghe che risultano più difficili da mettere a punto e 
che, se danno un messaggio d’errore, è più difficile da rilevare. 

Il processore, lavora al massimo su due variabili alla volta e deve eseguire 
stadi intermedi suddividendo l’espressione multipla. 


10 REM ELENCO DEI TIPI 

20 DATA MELE. PERE .SCOUBIDOUS. CAROTE .PATATE 
30 REM ELENCO DEI PREZZI UNITARI 
40 DATA 10.12.999.8.50.3.40 
50 DIM I*<S>.P<5> 

.60 EOR I » 1 TO 51 READ I*<I>!NEXT 
Z0 FOR I = 1 TO 5! READ P(I>!NEXT 

80 REM SI DISPONE ORA DEI TIPI E DEI RELATIVI PREZZI 

200 INPUT ■ NIJM. ARTICOLO . QUANTITÀ' *;NA.Q 

210 PRINT Q» "KG DI "iI*<NA>i" COSTANO ">Q * P<NA> 
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10 REM SOTTOPROGRAMMA PER CONVERTIRE DA 0 A 15 
20 REM IN ESADECIMALI <DA 0 A E> 

30 DATA 0*1»Z*3*9»5»6»7,8*9.A»B»C*D*E*F 
90 DIM ES*<16> 

50 POR I = 0 TO IStREAD ESKDtNEXT 
60 REM ORA ES*<K> DA K IN ESADECIMALE 



200 IF K < 0 OR K > 15 THEN STOP 
210 PRINT ES*<K> 

220 RETURN 


10 REM ADATTAMENTO AL BASIC APPLE INTEGER < SENZA APPLESOFT > 

20 DIM I$< 30 ) 1 REM TIPI UNITI E DELLA STESSA LUNGHEZZA 

30 I* = "MELE PERE SCOUBICAROTEPATATE■ 

210 PRINT I*<6 * NA - 6*6 * NA - 1> : REM ES.t I4<6*11) DA' “PERE • 


20 DIM ES*<15) 

30 ES*~ • 0123956789AfiCDF.F • 


210 PRINT ES*<K.K>: REM ES*<11»11> DA' *B* 


Tabelle e indici 

Quando un gruppo di dati o di variabili hanno qualche fattore in comune, in 
particolare quando, un trattamento identico dev’essere effettuato su ciascuno 
di essi oppure su uno solo non conosciuto a priori, è utile designarli con un 
nome di famiglia quindi si potranno elaborare “automaticamente” grazie, per 
esempio, ai loop. La famiglia è una tabella, e i numeri sono gli indici. 

Per analogia con le coordinate cartesiane classiche, si dice che la tabella ha 
una, due o più dimensioni se viene utilizzata con uno, due o più indici. 

Il BASIC non è in grado di trattare una tabella se non è informato della sua 
misura, ciò si ottiene con l’istruzione DIM (dimension). Per esempio DIM T 
(9) definisce un insieme di dieci variabili T (0), T (1),.. T (9). 

Contrariamente a ciò che succede in certi linguaggi più potenti, T può 
designare un’altra variabile indipendente non influenzata dall’insieme di va¬ 
riabili create dall’istruzione DIM T (9). 

Per un vantaggio proprio degli interpreti, la misura non dev’essere necessa¬ 
riamente stabilita in anticipo, poiché è al momento dell’esecuzione dell’istru¬ 
zione DIM che si realizza una prenotazione della zona memoria che corrispon¬ 
de alla tabella così definita. Ciò è utile per programmi voluminosi o per 
memoria di poca capacità, e permette di adattare la misura al meglio, frazio¬ 
nando eventualmente l’elaborazione. 

Si può anche liberare la memoria occupata dalle stringhe di caratteri con 
l’istruzione CLE AR (o CLR) totale o parziale, per creare nuove matrici in stadi 
successivi. 
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L’indice può essere rappresentato da un’espressione numerica, e lui stesso, 
definito come tabella. Questa tecnica può sembrare inutilmente complicata: 
essa permette per esempio di semplificare l’aggiornamento di tabelle inerenti 
intestazioni o di aggiornare il puntatore nella gestione dei dati. 


10 REM CODIFICA E DECODIFICA 
Z0 REM CHIAVE DI DECIFRAZIONE 

30 DATA Y»R»F»B»E»L»W>Pj>C»G*M*K»Si>H»A*Oi>XFT»V»I»Z?N»D»U»JfQ 
40 DIM CU<25> »DU<25) 

50 REM DU CONTERRÀ' LA CHIAVE DI DECIFRAZIONE(INVERSIONE ) 
60 FOR I « 0 TO 25 1READ CU<I> 

70 DU<ASC<CS<D ) - ASC< "A" > )-CHRU<ASC< ’ A • >•♦•I) 

80 NEXT 


100 REM CODIFICA:UN TESTO SATTUTO NON CIFRATO SI VISUALIZZA IN CODICE 
110 AU = INKEY*: IF AU » •“THEN 110 J REM INKEYU PER IL TRS 80 

120 I = ASC<AU) - ASC< *A•)J PRINT CU<I>? 

130 GOTO 100 


200 REM DECODIFICA:UN TESTO SATTUTO IN CODICE SI VISUALIZZA NON CIFRATO 

210 GET A*: IF A* « •• THEN 210 

220 I = ASC<AU> - ASC<"A*) :PRINT DU<I># 

230 GOTO 200 


10 REM VERSIONE PER APPLE INTEGER<SENZA APPLESOFT ) 

20 DIM CU<25>»DU<25> : REM VETTORI DI 26 CARATTERI AL MASSIMO 

30 CU » "YRFBELWPCGMKSHAOXTVIZNDUJQ * 

40 FOR I » 1 TO 25:K = ASC<CU<I>>-ASC<“A') : REM ASC PRENDE IL PRIMO CARATTERE 
50 D*<KrK> = C.HRU<ASC< "A" >+I> 

60 NEXT 


100 REM CODIFICA 

110 K = PEEK<-16384>:iF K > 127 THEN 110 : REM PER APPLE 
120 POKE —16368» 0 : I = K - ASC<"A'>: PRINT CU<I) 

130 GOTO 100 


10 REM IL PASSAGGIO DA VETTORI A LUNGHEZZA MOBILE 

20 REM A VETTORI GESTITI CON DIM E' FACILE PER IL CASO DI 

30 REM LUNGHEZZE COSTANTI<ES.: TITOLI DI LUNGHEZZA FISSA ) 


In generale, le tabelle possono contenere delle stringhe di caratteri, o degli 
interi, o dei reali, ma non l’unione di questi tre tipi. Le tabelle di stringhe non 
sono ammesse in certi BASIC (Apple Integer). L’istruzione DIM ha allora 
un’altro senso: DIM Z$ (20) crea una stringa di 20 caratteri al massimo; DIM 
Z$ (11) definisce la stringa che va dall’undicesimo al ventesimo carattere e Z$ 
(11,15) dall’undicesimo al quindicesimo. 

Gli altri BASIC gestiscono automaticamente la lunghezza delle stringhe fino 
a 255 caratteri e fin tanto che vi è spazio disponibile. 
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Il metodo del BASIC Apple Integer, ispirato dalFAPL dove una stringa di 
20 caratteri è in effetti un tabulato di 20 caratteri separati, è poco comodo per 
delle tabelle di nomi o di intestazioni, ma rende più agile le manipolazioni nel 
corpo di una stringa (estrazioni di parti di un nome, di un’indirizzo). 

Associati a delle istruzioni DATA (dati incorporati nei programmi), le 
tabelle permettono di tradurre facilmente un codice in un altro o di gestire la 
corrispondenza tra due tabelle. Certamente essi sono necessari per fare del 
calcolo matriciale (programmazione lineare, risoluzioni di sistemi di equazioni 
lineari). 
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10 REM SOTTOPROGRAMMI CHE SIMULANO DELLE FUNZIONI 
20 REM ES.: VALORE ASSOLUTO ABS 
30 IF X<0 THEN X=-X 
^0 RETURN 

50 REM ES.J PARTE INTERA ALGEBRICA INT(X) 

60 REM DA* L'INTERO PRECEDENTE X (ANCHE PER X<0) 

70 I%=X JREM LA CONVERSIONE TRONCA I DECIMALI 

80 IF IX>X THEN IX=IX-1 
90 RETURN 


10 REM FUNZIONI DEFINITE DA PROGRAMMA 
20 REM 26 NOMI POSSIBILI: FNA...FNZ 
30 REM ES.*. FUNZIONE IPOTENUSA 

*0 DEF FNI(ArB) = SQR(A*A + B*B) :REM (P.E.T.> 


100 H5=FNI(3f^> 

110 PRINT"IPOTENUSA '»H5 
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CAPITOLO 3 


LE FUNZIONI 


In un linguaggio come il BASIC, le funzioni rappresentano una vera pano¬ 
plia di mezzi tra i quali alcuni sono indispensabili. Essi si dividono in due 
campi principali: le funzioni aritmetiche che permettono di calcolare rapida¬ 
mente e senza scrivere programmi supplementari delle grandezze matemati¬ 
che. Talvolta vengono chiamate funzioni “implementate”. Il calcolo è sempre 
effettuato con il metodo dello sviluppo in serie e si potrebbe sempre scrivere un 
programma che dia lo stesso risultato (con una esecuzione più lenta poiché le 
funzioni implementate sono scritte in linguaggio macchina). 

L’altro grande campo riguarda le manipolazioni di stringhe di caratteri 
descritte nella seconda pane di questo capitolo; queste funzioni sono molto 
utili per rimpaginazione e il dialogo. 

Oltre a questi due gruppi di funzioni, esistono speciali istruzioni che forma¬ 
no l’argomento di particolari capitoli (Capitolo 6 - funzioni speciali e Capitolo 
7 - effetti grafici). Infine, certi BASIC permettono di “fabbricare” delle funzio¬ 
ni. 

Questi utilizzatori di funzioni non sono in realtà che dei piccoli sotto¬ 
programmi, generalmente limitati ad una linea, ma la cui chiamata è a volte più 
pratica e corrispondente alla sintassi di una funzione. Si troverà un esempio 
qui a lato. 

Funzioni numeriche 

Una funzione è una parola chiave associata ad uno o più argomenti tra 
parentesi: quando il BASIC incontra questa parola chiave, fa scattare l’esecu¬ 
zione di un sotto-programma che restituisce un valore in funzione degli 
argomenti. 

Da un punto di vista formale, una funzione è differente da un comando il 
quale può formare da solo un’istruzione completa: la funzione occupa il posto 
di una variabile in una espressione, generalmente segue un’istruzione di asse¬ 
gnazione (segno uguale), oppure segue un istruzione PRINT o in un’espressio¬ 
ne logica. 

A volte non c’è argomento (funzione che rimanda l’ora TI o lo spazio 
memoria libero MEM), a volte l’argomento è “fasullo”, chiama un sotto¬ 
programma assembler USR (0). 
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Alcuni BASIC permettono di includere delle funzioni programmate per 
l’utente. È una variante (formale, ma a volte più pratica) di sotto-programma. 

Accanto alle funzioni che lavorano sulle stringhe di caratteri (vedere oltre) vi 
è tutto un gruppo di funzioni numeriche che permettono di riprendere la 
maggior parte delle usuali funzioni matematiche. 


10 REM FUNZIONE ABS 

20 REM ES.: TRACCIATO DI UNA CURVA ALGEBRICA 
30 REM ESECUZIONE LENTA MA PROGRAMMA SEMPLICE 
TI) REM VALEVOLE PER OGNI EQUAZIONE F < X. Y ) = 0 

50 REM L'INIZIO S DEFINISCE UNA APPROSIMAZIONE +\- STRETTA E VISUALIZZATA 
60 S - 30 

70 FOR X=0 TO 127:F0R Y=0 TO 07 tREM SCANSIONE DELLO SCHERMO <TRSS0) 

80 F = X*X+2*Y*Y-45*X~60*Y~X*Y+650 IREM EQUAZIONE DI UNA CONICA 

90 IF ABS<F)<S THEN SET<X,Y> tREM (TRS) VISUALIZZA X,Y 

100 NEXT 


10 REM FUNZIONE SGN 

20 REM ES.tVARIABILE INDICE E TRIPLICE SCAMBIO 
30 DIM Z*(10> 

40 Zt<0)=>*DEBITRICE" !Z*< 1 ) )- "NULLA* iZ*(2) = •CREDITRICE" 


100 ON SGN(T)+1 GOTO 150.200.250 

150 REM TOTALE NEGATIVO. CALCOLO INTERESSI DEBITORI 


300 REM EDITING DEI RISULTATI 

310 PRINT"POSIZIONE ■ iZ*< 1+SGN<T> ) .ABS<T) 


10 REM FUNZIONE INT 

20 PRINT INT< 3 i 1416) .INT(—2.17) 

RUN 

3 -3 

30 REM ARROTONDAMENTO ALL'INTERO PIU' VICINO 

40 AR = INTCA+0.5) tREM ES.tINT<2.7+0.5> DA' 3 


10 REM FUNZIONE CINT <TRS80> 

20 REM = INT NEL FORMATO INTERO 

10 REM ES.t ARROTONDAMENTO IN FRANCHI E CENTESIMI S=17.6666 F. 
20 F = INT(S > tC-INT <10 0(S—F)) 

30 PRINT Fi".".CCFF" 

RUN 

17.66FF 


Valore assoluto e segno 

La funzione valore assoluto ABS è d’uso frequente in matematica (in 
gestione contabile ci si interessa sempre al segno dei numeri.). 

La funzione SGN ritorna -1,0 oppure 1, secondo se l’argomento è negativo, 
nullo o positivo. Essa permette (aggiungendo 1 oppure 2) d’avere un indice 0,1, 
2 oppure 1, 2, 3 che può, in certi casi, facilitare la scrittura: salto diretto a tre 
punti del programma grazie ad un GOTO calcolato (scambio triplo), scelta fra 
tre intestazioni della tabella. 
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Valore intero, valore doppia precisione, conversione di precizione 


La funzione INT (per Integer, intero) ritorna la parte intera di una variabile. 
Per ottenere un arrotondamento più vicino all’intero (certi linguaggi hanno 
la funzione corrispondente) basta aggiungere 0.5 e prendere il valore intero. 


10 REM FUNZIONE FIX<TRS80> 

20 REM TRONCA LA PARTE DECIMALE <INT(X>+1 SE X<0 > 

30 IX - -2.3:PRINT INT(-2.3)»FIX<-2.3>»IX 

RUN 

-3 -2 -2 


10 REM FUNZIONE CDBL(TRSBO) 

20 REM ES.S CALCOLO DEL NUMERO DI NEPERO 

30 e* =■ isx# = 1 

60 FOR I = 1 TO N i X# » X# / CDBL<N) ! E* - E# + X# i NEXT 
50 PRXNT " E = ’ ;C'ÌNG<E*> 

60 REM CSNG ELIMENA OLI ULTIMI DECIMALI NON SIGNIFICATIVI 


10 REM TEOREMA DI PITAGORA 

20 IF SIN(X>*2 + C0S(X>*2 <>1 THEN PRINT 

■IL QUADRATO DELL' IPOTENUSA MI INDUCE IN ERRORE• 


10 REM TROVARE PI CON ARCO-TANGENTE 
20 F’RINT 6*ATN<1> 

10 REM TRACCIARE UN CERCHIO - COORDINATE POLARI 

20 R = 20 : X0 = S0SY0 = 25 1REM RAGGIO E COORDINATE DEL CENTRO 

30 FOR U=0 TO 6.28 STEP 0.1 IREM 6.28 = 2PI RADIANTI = 1 GIRO 

60 X = X0 + 2.3*R*C0S(U> IREM IL COEFF. 2.3 DISOVALIZZA 

50 Y - Y0 + R*SIN(U) SREM IL CERCHIO (SU TRS) 

60 SET(X*Y> SREM PER TRSS PLOT PER L' APPLE 

70 NEXT 


10 REM FUNZIONI EXP E LOG 

16 PRINT EXF'( 1 ) »LOG< 0.0001) SREM £*1=2.718! LOG<0>= -INFINITO 

18 PRINT 2.7*1.6rEXPC 1 • 6*LQG<2.7) ) 

20 REM QUALE INCREMENTO RISULTA DAL 10X IN 10 ANNI 
25 PRINT EXP <10 *LOG < 1.1 ) ) 


10 REM FUNZIONE SCJR O SQRT (RADICE QUADRATA) 
20 PRINT SQR < 2 ) r 2*0.5 


INT restituisce un numero intero in formato reale (dunque non condizionato 
dal limite ± 32567). 

La funzione C1NT ritorna la parte intera, ma in formato intero, limitato a ± 
32567. I calcoli sono più rapidi quando si lavora con dei numeri di formato 
intero. 

Un’altra funzione, poco utile, tronca la parte decimale: funzione FIX (TRS 
80). 

La funzione CDBL ritorna lo stesso valore dell’argomento, ma in formato 
doppia precisione. Per una costante, per esempio, è più semplice scrivere I # al 
posto di CDBL (1). 
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Questo permette in una divisione tra variabili dove non si è voluta definire la 
doppia precisione, di operare una conversione che dia un risultato in doppia 
precisione. In un totale si limita così il cumolo degli errori di arrotondamento, 
senza dichiarare tutte le variabili in doppia precisione (economia di spazi). 

Nello stesso spirito, la funzione CSNG ritorna un valore nel formato reale 
semplice; al momento dell’edizione, essa permette di eliminare i decimali 
superflui; nel caso di un gran numero di calcoli intermedi, si può così presenta¬ 
re un numero con tutti i suoi decimali significativi, dato che l’aumento di 
precisione è necessario per evitare l’accumolo degli errori d’arrotondamento. 

Queste funzioni di conversione di formato sono un pò superflue poiché è 
sufficiente effettuare ed attribuire l’argomento a una variabile intermedia 
dichiarata al formato voluto, ciò realizza automaticamente la conversione. 

Esse portano un guadagno di velocità d’esecuzione, che sarà sempre apprez¬ 
zabile. 

Funzioni trigonometriche 

Sono i classici SIN, COS, TAN, per SINUS, COS1NUS e tangente. Gli 
argomenti devono essere in radianti (un giro completo = 2 tt radianti oppure 
6.28 per 360° cioè 1 radiante = 360/6.28° = 57.29578° e 1 grado = 6.28/360 
radianti = 0.0174533). 

Sono diponibili anche le funzioni inverse di tangente: ATN (are tg) cioè che 
se Y vale ATN (X), X vale TAN (Y) oppure ancora SIN (Y)/COS (Y). Come tg 
45° = 1 e 45° = tt/4 si ottiene facilmente n = 4 ATN (1). Si verificherà 
facilmente che TAN (n/2) è infinito. 


10 REM IMMAGINE BINARIA DI UN NUMERO DECIMALE 

20 REM CON DIVISIONI SUCCESSIVE PER 2 

30 INPUT A 

40 07. - A/2 

50 RZ = A - 2 * 07. 

60 REM 2 MOVIMENTI DEL CURSORE A SINISTRA PER SCRIVERE DA DESTRA 
70 REM A SINISTRA AL FINE DI PRESENTARE LE UNITA' A DESTRA 
80 PRINT CHR*<24>»CHR*<24> ! REM TRS 

80 PRINT "<- <-" 1REM PET 

90 PRINT RZS !REM VISUALIZZA UN BIT < 0/1 > 

100 IF QZ>0 THEN A = QZSCOTO 40 

10 REM SCOMPOSIZIONE DI UN INDIRIZZO SU 2 BYTES 
20 REM CON DIVISIONI SUCCESSIVE PER 256 

30 A1Z «■ A/256 SREM A1=BYTE PIU' SIGNIFICATIVO 

40 A2Z » A-256*A1Z SREM A2= • MENO • 


10 REM CONVERSIONE DI T SECONDI IN H/M/S 

20 MZ m T/60 

30 S% - T-60*MZ 

40 H% = MZ/60 

50 MZ = MZ-60JKHZ 

60 PRINT HZi V SMZS V SSZ 

70 REM IDEM SE H * GRADI SESSAGESIMALI 
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Esponenziali - logaritmi - radice quadrata 

Queste funzioni giocano un grande ruolo in matematica e in fisica. Se Y vale 
EXP (X), X vale LOG (Y). L’argomento di un logaritmo deve essere positivo 
EXP ( 1 ) da il numero di Neper. L’operatore di elevazione t (oppure* ) è molto 
potente: XtY è calcolato nel modo seguente: EXP (Y*LOG (X)). 

Per calcolare un quadrato od un cubo sarà preferibile, se ha importanza la 
velocità, scrivere X*X o X*X*X invece di Xt2 e Xt3. 

Un logaritmo decimale (non ce ne dovrebbe essere bisogno con le possibilità 
di cui sopra!) si ottiene con LD = (LOG (X)/ LOG (10)). 

La radice quadrata si ottiene con la funzione SQR (scritta a volte SQRT), 
abbreviazione di “square root”. Constaterete che i professori di matematica 
non hanno torto di esigere che l’argometno sia positivo. 


Funzione modulo e divisione in numeri interi 

La nozione di divisione aritmetica è sovente utilizzata in programmazione: a 
partire da due interi a e b trovare un quoziente e un resto intero tale che a = b * 
q + r con r <b. 

Si dice che a è congruo a r modulo b. Certi BASIC (Integer Apple) hanno 
una funzione che dà r in funzione di a e b: R = A MOD B. 

Si ottiene lo stesso risultato con una divisione di numeri messi prima di tutto 
in formato intero: 

R =A% - (A%/B%) * B% 


o ancora Q% =A/B : R = A - B * Q% 

Le divisioni successive di A per B (cioè A diviso per B dà un primo resto e un 
quoziente; questo quoziente diviso per B dà un secondo resto e un quoziente, 
ecc....fino all’ultimo quoziente che è nullo) forniscono una scomposizione del 
numero A scritto in base B (con il primo resto = cifra delle unità, secondo resto 
cifra dei B, poi il quadrato dei B, ecc....). 

Se B vale 2, si ottiene l’immagine binaria (i resti successivi che valgono 0 
oppure 1) di A. Se B vale 16, si ottiene l’immagine esadecimale del numero A, i 
resti valgono da 0 a 15. Occorre ancora un piccolo sotto-programma che 
trasformi, 10, 11,12,13,14,15, in A, B,C,D, E, F per la tradizionale notazione 
esadecimale. 

Infine, se B vale 256, si ottiene una scomposizione per byte molto utile con 
PEEK e POKE quando bisogna passare da un indirizzo (generalmente 0 a 
65535) alla sua immagine decimale su più byte (generalmente 2). 

Se B vale 100, si può anche formare una somma con i centesimi (in assenza 
del formato USING). Se B vale 60, si realizza la conversione sessagesimale del 
tipo ore/minuti/secondi (o gradi degli angoli). 
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10 REM CONCATENAZIONE 

20 IF CODICELI THEN Z*=“SIG.■ ELSE Z*="5IG.RA- 
30 Z* = z*+ m DUPONT- 
40 PRINT Z* 


10 REM TEST E CONFRONTO 

20 INPUT -VOLETE FARE UN GIOCO "»Z* 

30 IF ZtO-SI- THEN STOP 

40 DATA 4»RENATA»CARLA»MICHELE»GIANNI 

50 READ NJD.TM Z*<N>JFOR 1=1 TO N: READ Z*<I)JNEXT 

60 REM GIOCO CON PERMUTAZIONI - POCO EFFICACE MA SEMPLICE 

70 FOR 1=1 TO N—l 

80 IF Z*<I+1> < Z*<I> THEN 150 

90 NEXT 

100 REM FINE DEL GIOCO 


150 REM SI PERMUTANO DUE VICINI E SI RICOMINCIA 

160 REM PER PERMUTARE 2 VALORI OCCORRE UN VALORE INTERMEDIARIO 

170 A* = Z*<I>!Z«<X> = Z*<I+1)J Z*<I+1) = A*JGOTO 70 


10 REM FUNZIONE LEN PER SOTTOLINEARE UN NOME 
20 PRINT N*JFOR 1=1 TO LEN(N*)JPRINT -=-»JNEXT 


10 REM EQUIVALENTI DI LEFT* » RIGHTli IN INTEGER BASIC APPLE 

20 Z*<5> = Z* JREM CANCELLA I 5 CARATTERI DI SINISTRA 

30 Z* = Z*(3 » 11) JREM ESTRAE I CARATTERI DA 3 A 11 

40 Z*<5> = JREM ESTRAE E CANCELLA I CARATTERI DA 1 A 5 


10 REM FUNZIONE MID* ES.JSCRIVERE UN NOME A ROVESCIO 

20 N* = -LAVAL- JREM PALINDROME COME"ESOPE RESTE ICI ET SE REPOSE■ 

30 FOR I=LEN<N*> TO 1 STEP -1 
40 PRINT MID*<N4»Ir1)»JNEXT 

50 REM CERCARE DEI PALINDROMI ARITMETICI ES.J"21*21=441" 

■31*31=961' 


10 REM SINTASSI J LEFT* <VAR.STRINGA»LUNGHEZZA) 
RIGHT*( ■■»•) 

MID* < ''» POSIZIONE » LUNGHEZZA) 


Manipolazione delle stringhe di caratteri 

Le funzioni numeriche viste qui sopra permettono di effettuare dei calcoli 
abbastanza elaborati, ma non permettono di effettuare rimpaginazione e la 
presentazione o più generalmente tutti i dati non numerici. 

Tutto un gruppo di funzioni permette di trattare questi dati chiamati “strin¬ 
ghe di caratteri”. Si dovrà diffidare della possibile ambiguità nei riguardi di 
una cifra che può essere considerata sia per il suo valore numerico che come 
carattere. La parola “carattere” deve essere considerata nel senso di un codice 
strettamente associato ad un carattere di stampa. 

Si dovranno manipolare dei caratteri quando si vorrà impaginare, “allesti¬ 
re” un tabulato, fare un gioco, utilizzare i caratteri speciali che permettono di 
controllare la visualizzazione 
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Prima di esaminare le funzioni di manipolazione delle stringhe, citiamo le 
operazioni che si possono effettuare sulle stesse. Non si possono fare dei 


10 REM FUNZIONE ASC (CODICE ASCII) 

20 REM ES.i ESAMINARE I CODICI EMESSI DA OGNI TASTO 

30 Z*=INKEY»iIF Z*=‘■ THEN 30 ÌREM TRS80 (GET PER PET E APPIÈ) 

40 F'RINT Z*i‘ • ! ASC < Z* ) 

RUN 
* 42 


10 REM FUNZIONE CHR* 

20 REM ES.: VISUALIZZARE L'EFFETTO SU PRINT DEI CARATTERI SPECIALI 

30 INPUT KtPRINT CHR*(K>iÌGOTO 30 

40 REM VISUALIZZARE L' ALFABETO RAPPRESENTABILE 

SO INPUT KlrKZ !REM PROVARE PER EVITARE 

60 !REM alcuni CARATTERI SPECIALI 

70 FDR K=K1 TO K2SPRINT CHR*(K)fKINEXT 

80 GOTO 50 

10 REM FUNZIONE STRINO» (N f CARATTERE)TRS80 

20 PRINT STRING»(35 f " * ‘ ) !REM IMPAGINAZIONE DI TABULATO 

30 FOR 1=1 TO Ni PRINT STRING» (X (I) f ■«■•> iNEXT 
40 ÌREM FARA' UN MISTOGRAMMA 

50 E:* = STRING*<3f 196) tREM RIUNISCE 3 CARATTERI SPECIALI 

60 REM ES.i MESSA IN OPERA DI UNA TABULAZIONE VERTICALE (TRS80) 

70 DIM VT* <10) 

80 FOR J=1 TO lOiVT* = STRING* <If26) iNEXT iR'EM 26=SALT0 LINEA 

90 REM PRINT VT*(N) SALTERA ' N LINEE (N DA 1 A 10) 


10 REM FUNZIONE STR»<ESPRESSIONE) 

20 REM ES.i PREEDIZIONE CHE SIMULA ‘PRINT USING - SU 8 COLONNE 
30 R* = STR* < R > {IF LEN(R») > 8 THEN R*=‘ ****** • 

40 R* » STRING*(8-LEN(R*)f‘=‘)+R* 

50 PRINT R* ÌREM ‘==125.40 • SONO 8 CARATTERI 


calcoli, ben inteso; l’operatore + realizza la concatenazione, vale a dire la 
“saldatura” di più stringhe fra di loro. Gli operatori di comparazione ><e = 
funzionano anche per le stringhe, con le regole corrispondenti all’ordine 
lessicografico usuale, con JEAN inferiore a JEANNOT (l’ordine esatto corri¬ 
sponde al codice ASCII in appendice, vale a dire 0 < 1.<9 <bianco- 

.<A.<Z ecc.). 

Il segno = di assegnazione funziona come per le variabili numeriche. In 
alcuni BASIC la lunghezza non è gestita automaticamente e la stringa di 
sinistra, che riceve, dovrà essere abbastanza grande per aggiungere ciò che le 
viene inviato (Apple). 

La funzione LEN (da LENGTH, lunghezza) ritorna un numero (da 0 a 255) 
uguale alla lunghezza della stringa data in argomento. Per una stringa nulla, 
che figura nella tavola dei nomi delle variabili, ma che non contiene niente, la 
lunghezza è 0. Tale funzione è utile per l’edizione: per esempio per sottolineare 
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una parola la cui lunghezza non era ancora conosciuta o per elaborare le 
singole lettere di una parola non conosciuta a priori. 

Le funzioni LEFTS, RIGHTS, MID$ ritornano una sottostringa estratta a 
sinistra, a destra o nel corpo della stringa in argomento. Nel BASIC, con una 
lunghezza di stringa non automatica, queste funzioni sono sostituite con degli 
indici: Z$ (i, j) determina la sottostringa della stringa Z$ dal carattere i al j. 

Le funzioni ASC e CHR$ permettono di passare da un carattere al codice 
ASCII corrispondente e viceversa. 

ASC permetterà di manipolare dei caratteri secondo il loro ordine alfabeti¬ 
co, dunque con dei loop e delle istruzioni numeriche, poiché i codici dalla A 
alla Z sono consecutivi. Se le manipolazioni includono delle cifre, si dovrà 
diffidare del tratto dei 7 caratteri (: àcr) che separano 9 da A. Se l’argomento di 
ASC contiene più caratteri, solo il primo viene preso in considerazione. 


10 REM FUNZIONE VAL<VAR.STRINGA> 

20 REM ES.! UNIONE DI VARIAE:ILI DIVERSE IN UNA FRASE 
30 REM DI DIALOGO 0 IN UNO SCHEDARIO 
"10 INPUT Z* 

50 Z = VAL<Z*>:IF Z=0 THEN 100 !REM VAL IGNORA UNA STRINGA NON NUMERICA 
60 REM LA RISPOSTA INIZIAVA CON UN NUMERO, ORA DISPONIBILE IN Z 
.TRATTAMENTO DI Z 

70 REM TRATTAMENTO DELLA SEQUENZA < PRELEVA IL NUMERO DI Z*> 

80 Z* = RIGHT*(Z*,LEN(Z*)-LEN<STR*(Z))> 

90 REM TRATTAMENTO DI UNA PARTE ALFABETICA 


CHR$ permette di creare tutti i caratteri (codici da 0 a 255) e particolarmen¬ 
te quelli che non possono essere scritti in una costante battendo un tasto della 
tastiera: caratteri grafici, caratteri speciali, movimenti di cursore differenti dai 
movimenti usuali comandati dall’istruzione PRINT. Vedere le appendici Co¬ 
dice ASCII e caratteri speciali. 

La funzione STRINGS (da non confonde con la STR$) è una sorta di CHRS 
con la particolarità che permette di creare una stringa i cui caratteri sono tutti 
identici. Il carattere da duplicare è indicato in chiaro con il suo codice ASCII, 
ciò facilita l’edizione delle tabelle (tratti orizzontali con caratteri grafici). 

Le funzioni STR$ e VAL permettono di passare da un numero (o da una 
espressione numerica) alla stringa di caratteri formata dalla cifre di questo 
numero (o del numero risultante dall’espressione) e viceversa. La reciprocità 
non può essere applicata all’espressione (STR$ (2 + 2) che, da il carattere “4” 
ma VAL (“4”) non può che dare il numero 4). 
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STR$ permette di preparare un’edizione, permettendo al programma di 
conoscere la lunghezza del numero da visualizzare per sottolinearlo o inqua¬ 
drarlo in un tabulato. Si possono anche concatenare dei caratteri con dei 
numeri (esempio CR per Credito, FF per una somma). 

Si potrebbe raggiungere lo stesso risultato con PRINT ma la logica del 
programma è qualche volta semplificata se si dissocia la visualizzazione della 
messa in bella forma dei dati; una parte comune del programma può provvede¬ 
re a tutte le edizioni con delle linee o elementi di strutture, preparati in vari 
modi, nei diversi punti del programma. 

VAL permette di unire delle variabili di caratteri e delle variabili numeriche 
e di leggere il tutto in un formato carattere, altrimenti non si potrebbero 
leggere delle variabili di tipo misto, salvo che non siano in un ordine conosciu¬ 
to a priori (per esempio un nome o una quantità). 

Ciò si applica anche ad un’inpostazione di dati (INPUT) dove la stessa 
istruzione potrà indifferentemente leggere dei numeri o dei caratteri. Se dei 
numeri e delle lettere sono muniti nella stringa-argomento, VAL convertirà il 
primo numero incontrato a partire da sinistra. 
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10 REM SALTO DIRETTO GO TO (ANDARE IN..) 

20 GOTO 100 JREM GLI SPAZI SONO FACOLTATIVI 

100 REM LA DESTINAZIONE DEL GOTO PUÒ' ESSERE UNA REM 
110 REM CIO* PERMETTE DI MODIFICARE LE ISTRUZIONI SEGUENTI 
120 REM SENZA RISALIRE AL GOTO» MA RALLENTA L' ESECUZIONE. 
130 ON K GOTO 20 0 » 300 »*0 0 JREM IDEM GOSUB PAG. 48 

IGNORATO SE K<1 O K>3 


10 REM ISTRUZIONE IF + CONTATORE 
20 N « N+l 


100 IF N<50 THEN GOTO 20 JREM LA SEQUENZA SARA* ESEGUITA 50 VOLTE 

10 REM ESPRESSIONE LOGICA 

20 IF ( A>B AND N<20 > OR J=K+L THEN 100 

30 REM IF<.♦.) THEN 100 EIF (...) GOTO 100 

*0 REM SI EQUIVALGONO»MA E* SEMPRE MEGLIO USARE THEN 

50 REM CHE E* NECESSARIO SE L.' ISTRUZIONE SEGUENTE 

60 REM NON E' UN GOTO OPPURE SE VE NE SONO DIVERSE 


10 REM OPERATORI BOQLEANI 

20 REM AND - OR - NOTSI APPLICANO A DEGLI INTERI ES.! 

30 PRINT 7 AND 13 JREM IN BINARIO Olii E 1101 

RUN 

5 

40 REM 5 = 0101 IN BINARIO 


10 REM 0 AND N DARA' SEMPRE0 (ZERO BINARIO = 00000000) 

20 REM -1 OR N DARA' SEMPRE ~1 (-1 BINARIO = 11111111) 

30 REM QUESTO PERCHE* VERO=-l E FALSO=0 

40 REM ES.J IF ESP.A OR ESP.B(ESP.A=-l QUINDI CONDIZIONE VERIFICATA) 

IF ESP.A AND ESP•B (ESP.A- 0 QUINDI CONDIZIONE NON VERIFICATA) 
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CAPITOLO 4 


LOGICA DI SVOLGIMENTO 
DI UN PROGRAMMA 


La possibilità di saltare da una parte di un programma ad un’altra è una 
caratteristica essenzialmente di un computer: si può considerare che tale 
possibilità lo differenzia dai vecchi meccanografici che richiedevano l’“antico” 
uso di scrivere i programma su schede perforate. 

Esiste il salto semplice “incondizionato”, per esempio alla fine programma, 
per ricominciare automaticamente, o per aggirare un gruppo di istruzioni non 
comprese nella sequenza logica. È l’istruzione GOTO e la sua variante multi¬ 
pla ON....GOTO.... 

Esistono i salti “condizionati” la cui esecuzione dipende dal precedente 
svolgimento IF (se-espressione logica vera) THEN (allora-eseguire un’azione). 

L’espressione logica è alla base della comparazione di espressioni aritmeti¬ 
che. 

Le espressioni possono essere complicate ed inoltre si possono combinare 
delle espressioni logiche con AND e OR. 

L’istruzione da eseguire (se la combinazione di espressione si rivela vera) è il 
più sovente un GOTO che rinvia verso le istruzioni che il programmatore ha 
previsto di eseguire per quel caso. Di conseguenza dietro allTF vengono le 
istruzioni da eseguire nel caso contrario. 

L’azione da eseguire può essere qualsiasi istruzione. Certi BASIC autorizza¬ 
no un gruppo di istruzioni dietro il THEN. E molto pratico ma conviene stare 
in guardia: tutto il seguito della linea fa allora parte del gruppo THEN di azioni 
da eseguirsi se la condizione è vera. 

Alcuni BASIC permettono di aggiungere un gruppo ELSE da eseguire 
solamente se l’espressione logica è falsa. Si può passare facilmente a terminare 
il gruppo THEN con un GOTO. 

Il loop infinito 

Un classico errore, che era molto noioso sui grandi computer, che si pagava 
con lo spreco del tempo macchina si chiama il loop infinito: dopo aver fatto 
RUN, il programma si avvia e non succede più niente! 

In questo caso un errore di logica ha probabilmente fatto in modo che una 
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combinazione sfortunata di un GOTO generi un loop che si inanelli su se 
stesso. Con un piccolo sistema è sufficiente fare BREAK o STOP (control-C 
sull’Apple). 

In certi casi si ha necessità di un loop infinito per inibire il defilamento 
automatico che verrebbe a danneggiare un bel grafico o un tabulato, cancellan¬ 
do una o due linee dal lato dove si trova il cursore per inserire READY e il 
“prompt”. È sufficiente terminare il programma con un GOTO su se stesso al 
posto di END o STOP. 


10 REM ISTRUZIONE ELSE (ALTRIMENTI..) DOPO IF...THEN (SE... ALLORA) 

20 IF N=1 THEN A=A+1 ELSE 0=6+1 

100 REM L' AGGIUNTA DI UN GOTO ALLA FINE DEL GRUPPO THEN <QUI DOPO A*=A+1 > 

110 REM SOSTITUISCE L' ISTRUZIONE ELSE 

120 IF N=1 THEN A=A+1SCOTO ITO 

130 B = B+l 

ITO .. 

10 REM LOOP INFINITO < ARRESTO CON BRAK/STOP/CONTROL-C) 

20 GOTO 20 

30 REM ARRESTO CON BATTUTA DI UN TASTO 

T0 Z* = INKEY*! IF Z*=" THEN T0 SREM TRS80 (GET PER PETI 

SO STOP SREM OPPURE SEGUITO 

10 REM SCAMBIO (STATO NORMALE A=0 > 

20 IF A=1 THEN A=08. SREM SEQUENZA FUORI NORMA 


50 IF (CONDIZIONE) THEN A-l SREM AL PROSSIMO LOOP SARA' ESEGUITA 

LA SEQUENZA FUORI NORMA 


100 GOTO 20 
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Lo scambio 


È un modo di programmare che permette di apportare una variante in alcuni 
casi all’esecuzione di un loop che ritorna un numero di volte non conosciuto in 
precedenza, vale a dire GOTO in loop dal quale si esce per mezzo di un test IF. 

Ciò evita di risolvere un loop quasi identico (in generale si tratta di un inizio 
o termine di una sequenza). 


io REM LOOP FOR¬ 
ZO REM E.S* » CALCOLO DELLA SOMMA DEI PRIMI N INTERI 
30 INPUT n:s=o 
40 POR 1=1 TO N 
50 S = S+I 
60 NEXT 

70 PRINT S?N*< N+l)/2 
80 GOTO 30 


10 REM NIDIFICAZIONE DI LOOP 
20 FOR 1=1 TO 100 


50FOR J=A TO E: STEP C 
90NEXT J 


JREM LA SCRITTURA SFALSATA 

:rem facilita la COMPRENSIONE 


120 NEXT I 

130 REM SE NON VI E’ NULLA TRA 90 E 120 UN SOLO NEXT E SUFFICIENTE 
140 REM NEXT Jrl OPPURE NEXTJNEXT 


10 REM CALCOLO DI UNA TABELLA DI ATTUALIZZAZIONE 
20 INPUT"DURATA (ANNI) "JN 

30 INPUT"TASSO MINIMO E MASSIMO <ES.J 5»12) ";TlfT2 
40 FOR 1=1 TO NJPRINT 

50 FOR T=1+T1/100 TO 1+T2/100 STEP 0.01 
60 PRINT T*I5" *"# 

70 NEXT 

80 REM STEP 0.01 DEFINISCE UN INCREMENTO DELL* 1% 

90 REM CIO* FORNISCE UNA COLONNA CON PERCENTUALE TRA TI E T2 


Lo scambio consiste in una variabile ausiliare che prenderà 1 valori 0 oppure 
1, per esempio: lo scambio sarà “tallonatale” (come nei treni elettrici) se la 
sequenza corrispondente al caso eccezionale rimette lo scambio al valore 
ordinario. 

I loop programmati 

L’istruzione FOR/NEXT permette, in maniera facile, di creare un contatore 
e di eseguire un gruppo di istruzioni un numero di volte voluto. Si può ben fare 
la stessa cosa se con un GOTO e con dei test IF su un contatore, ma ciò 
implicherebbe un numero maggiore di istruzioni e obbligherebbe a riflettere 
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sui valori limite che dipendono dalle rispettive posizioni del test e dell’incre¬ 
mento del contatore. 

FOR contatore = inizio TO fine STEP incremento 


NEXT 

È necessario fornire un nome di variabile al contatore (si prende sovente I, J 
... ma non è necessariamente un numero intero). 


10 REM USCITA DAL LOOP E RINVIO ALLE ISTRUZIONI SEGUENTI 
20 REM ES.J RICERCA DDI UNA PAROLA IN UNA TABELLA DATI 
30 FOR 1=0 TO 100 
■*0 READ T* 

50 IF T*=M* THEN 100 {REM ESCE SE TROVATO 

60 IF T*<M* THEN 80 {REM PASSA AL SEGUENTE 

70 . 

80 NEXT 

90 PRINT"ASSENTE NELLA TABELLA"{STOP 
100 . (SEGUITO) 


10 REM TEMPQRIZZAZIONE 

20 REM ES.{ LAMPEGGIO DI UN CARATTERE 

30 PRINT 0 Nr"*"{GOSUB 200 

*0 PRINT 0 Nf" "{GOSUB 200 {GOTO 30 

200 FOR 1=1 TO 500{NEXT{RETURN {REM RITARDO 

300 REM SI PUÒ' SOSTITUIRE 1 PRINT 0' CON UN MOVIMENTO 
310 REM A SINISTRA DEL CURSORE *PRINT"<-* * E ■<- " <PET> 


10 REM TEMPORIZZAZIONE 

20 REM ES.{PRESA DI UN CARATTERE IN TEMPO LIMITE 
30 REM < GIOCHI » SICUREZZA ALLA CONVALIDA.. PER ESEMPIO) 

40 Z* ® INKEYS i IF Z*<>"" THEN 70 
50 T = T+l{IF T>500 THEN 150 
60 GOTO 40 

70 REM ANALISI DEL CARATTEREfDECREMENTO EVENTUALE DEL TEMPO T 


80 T = 0 {REM AZZERAMENTO DEL CONTATORE TEMPO 


150 REM FINE DEL RITARDO 

160 PRINT"RICOMINCIARE DAL PRINCIPIO" {REM OPPURE ALTRA AZIONE 


10 REM TEST DEI RIFLESSI: PREMERE UN TASTO AL COMPARIRE DI •*# 1 
20 CLS{FOR 1=0 TO RND< 1000 > + 1000 {IF INKEYSO"" THEN PRINT "IMBROGLIONE" 

30 NEXT{PRINT"♦*" {REM RITARDO IMPREVEDIBILEDA 1000 A 2000 

40 N =s N+1{Z*=INKEY*{IF 7.*="" THEN 40 
50 PRINT N{IF N<18 THEN PRINT"SEI RAPIDO" 

60 GOTO 20 


Si possono annidare dei loop: vale a dire creare un sottogruppo con un 
secondo contatore in seno al gruppo che lo comprende: ad ogni esecuzione del 
gruppo principale il sottogruppo sarà ripetuto sotto il controllo del secondo. E 
necessario precisare quindi i limiti, menzionando a lato del NEXT il nome del 
contatore del loop interessato. 
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Se il limite coincide, si scriverà NEXT 12,11 rispettando l’ordine in modo 
che il sottogruppo resti bene inglobato nel gruppo che lo contiene. 

Il contatore messo a punto con l’istruzione FOR è accessibile al programma: 
con questo si possono fare dei calcoli e l’esecuzione dei loop non sono necessa¬ 
riamente identiche. D’altra parte, però, si sciupa il funzionamento se si modifi¬ 
ca il contenuto del contatore: è un errore frequente in un vasto programma 
prendere inavvertitamente per variabile di lavoro intermedio un nome (I, J, K) 
già utilizzato come contatore nel corso del programma. 

Si può uscire da un loop “non importa in quale punto” (per mezzo di un test 
IF per esempio) prima che il contatore àbbia preso tutti i valori previsti: al 


10 REM ISTRUZIONE GOSUB 

20 REM ES.: DUMP DI MEMORIA.IL SOTTOPROGRAMMA VISUALIZZA UN CARATTERE ESADEC. 

30 DATA 0.:l»2»3.4.5»6.7,B,9,A,B»C»D»E»F 

40 DIM H*<15>!F0R 1=0 TO 151 READ H*<I)iNEXT 

50 INPUT'INDIRIZZO DI PARTENZA '!A 

60 REM VISUALIZZAZIONE DI 16 RIGHE DI 16 BYTES 

70 FOR L=0 TO 15 

80 PRINT ÌPRINT A+16*L!' ' » IREM IL PRIMO PRINT VA A CAPO 
90 FOR J=0 TO 15 

100 J = PEEKCA+16*L+I> IREM LEGGE UN BYTE 

110 K%=J/161 GOSUB 1000 IREM VISUALIZZA 1/2 BYTE 

120 KZ=J-16*K%:GOSUB 1000 IREM • • ■ 

130 PRINT' 'i IREM SPAZIO TRA BYTE E BYTE 

140 NEXT 

150 Z*=INKEY*:iF Z*='' THEN 150 

160 IF Z*=* ' THEN A=A+256!G0T0 60 IREM PAGINA SEGUENTE 

170 GOTO 50 

100 0 PRINT H*<K%>. '.RETURN 


10 REM GOSUB CALCOLATO 

20 ON K GOSUB 1000.1100.1200 

30 REM SALTO A 1000,1100.1200 SE K=1,Z O 3 

40 REM COME PER GOTO.L" ISTRUZIONE E’ IGNORATA SE K<1 O K>3 


1000 . 

1040 RETURN 

1100. 

1160 RETURN 

1200. 

1230 RETURN 


contrario, è necessario entrare “dalla porta”, vale a dire tramite l’istruzione 
FOR e non nel mezzo di un loop, ciò che provocherebbe normalmente un 
errore al primo NEXT che va ad incrementare un contatore non messo a punto 
o quello di un altro loop. 

Un GOTO rinviato al NEXT termina il loop in corso e fa passare al loop 
seguente (o alla sequenza se il contatore ha così raggiunto il limite fissato). 

Dal momento che un programma contiene dei loop, interviene la dimensio¬ 
ne tempo: i loop possono lavorare un gran numero di volte (ricordiamo che i 
processori sono disciplinati) ed è facile realizzare un programma dando l’im¬ 
pressione che lavori lentamente. Quando si vuole un funzionamento automati- 
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co senza l’intervento dell’utilizzatore ad ogni inserimento d’informazione, è 
necessario realizzare un temporizzatore che s’arresterà uno o due secondi per 
lasciare il tempo di leggere un messaggio. Vi è pure la necessità di misurare il 
tempo trascorso per fare della sintesi musicale e per fare sistemi a telecomando. 

Un loop “vuoto” che non fa altro che rincrementare un contatore, permette 
di attendere un lasso, di tempo lungo quanto si vuole. Volendo è possibile 
regolarlo e si può arrivare ad ottenere soste molto precise. La regolazione è più 
delicata se il programma deve fare qualcosa nello stesso tempo: allora si hanno 
forzatamente dei test di diramazione e dunque dei tratti disuguali in lunghezza 
delle istruzioni svolte ad ogni giro. Se ciò intralcia, è necessario “riempire” i 
rami corti con delle istruzioni inutili, ciò rallenterà l’insieme. Si può quindi 
avere bisogno di un vero orologio in un tempo reale, vale a dire, al quale si può 
accedere ad ogni momento, ma che misura il tempo senza essere influenzato 
dall’attività del processore. 


Sottoprogrammi 

Un sottoprogramma evita la duplicazione delle sequenze d’istruzioni identi¬ 
che che è necessario eseguire più volte nel corso di un programma. 

Un GOTO permetterebbe di accedere a quella parte ripetitiva, ma per 
ritornare poi nello stesso punto sarebbe richiesto un sistema di scambio un pò 
complesso. 

L’insieme GOSUB/RETURN è equivalente ad un GOTO speciale che 
memorizza il punto di partenza per poi ritornare all’istruzione che segue al 
GOSUB. 

Il sottoprogramma termina per mezzo del RETURN che rinvia all’istruzio¬ 
ne che seguiva la chiamata del sottoprogramma. 

Come per il GOTO, è disponibile una variante di scambio: 

ON K GOSUB invio a 1, invio a 2, ecc. 

Di solito si scrivono i sottoprogrammi in testa o in coda, ma non al centro di 
un programma principale, per facilitare la comprensione dello stesso. Se 
l’esecuzione veloce è importante, la disposizione dei sottoprogrammi non è 
indifferente. Certi BASIC esplorano i numeri di linea in senso crescente per i 
GOTO e decrescente per i GOSUB. In questo caso è interessante disporre i 
sottoprogrammi richiamati spesso in coda al programma. 

Un sottoprogramma può chiamarne un altro, ma il BASIC deve immagazzi¬ 
nare i dati di ritorno intermedi e si ha dunque un limite a questa sovrapposizio¬ 
ne, di solito sono possibili fino a 16 richiami in cascata. 

Per questa stessa ragione, un RETURN senza GOSUB provocherà un 
errore. 


32 


Contrariamente ad altri linguaggi evoluti, il BASIC non permette di scrivere 
dei sottoprogrammi indipendentemente dal programma che si richiama, poi¬ 
ché uno stesso nome di variabile definisce la stessa variabile ed il sottopro¬ 
gramma fa parte integrante deirinsieme del programma. 


10 REM PRINT 

20 REM LE ISTRUZIONI SPECIFICHE PER LE PERIFERICHE NON 
30 REM SONO DESCRITTE QUI (LPRINT *PRINT#1»...) 

40 PRINT A>B» "CUCULO" *3.14*L0G<2> ; ■ = ,Z*<3> 


10 REM SCORRIMENTO AUTOMATICO A FONDO PAGINA 
20 X = X+.5JS ■ 7+6*SIN(X> 

30 FOR 1=1 TO A4 STEP SIPRINT STRINGACI»■>■)JNEXT<TRS80) 

40 FOR I==64 TO 1 STEP -SJPRINT STRINGACI» *>* > JNEXT (TRS80) 
50 GOTO 20 


10 REM CANCELLAZIONE SCHERMO DA PROGRAMMA 

20 CLS JREM TRS80 

20 PRINT■CLR■ :REM PET IL "CLR" E 1 VISUALIZZATO COME CARAT.GRAFICO 

20 CALL-936 JREM INTEGER BASIC APPLE 

20 HOME JREM APPLESOFT 

30 REM IN ALCUNE MACCHINE UN POKE CANCELLA LO SCHERMO 


10 REM POSIZIONAMENTO ASSOLUTO 

20 REM TRSB0 J MOVIMENTI DEL CURSORE CON CHR*(..> E CARATTERI SPECIALI 
30 PRINT @64 1 *INIZIO SECONDA LINEA* 

20 REM PET JMOVIMENTI DEL CURSORE CON CHR*<..) E CON TASTI SPECIFICI 

30 PRINT ■ HOME/C-/—>." 

20 REM APPLE J CON CHR*(..> E VTAB/HTAB 
30 VTAB 2 JREM SECONDA LINEA 
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CAPITOLO 5 


DIALOGO CON LA MACCHINA 


Visualizzazione e stampa 

L’istruzione generale di visualizzazione è PRINT seguita da una lista di 
argomenti. L’utilizzo di virgole tra gli argomenti provoca una spaziatura 
automatica, sotto forma di tabulazione implicita, che offre un’edizione corret¬ 
ta (salvo con l’unione di numeri grandi e piccoli) ma che è difficilmente 
controllabile. 

L’utilizzo del punto e virgola offre uno spazio nullo e permette di fare ciò che 
si vuole, ma si dovrà gestire lo spazio inserendo dei vuoti. Un punto e virgola in 
fondo alla lista annulla il passaggio automatico alla linea seguente. Il PRINT 
seguente continuerà la visualizzazione o la stampa di seguito all’ultimo carat¬ 
tere. Il programmatore è così padrone del formato, ma dovrà sorvegliarne tutti 
i dettagli. 


10 REM PRINT TAB (TABULAZIONE) 

20 REM VISUALIZZAZIONE DI UNA SINUSOIDE 
30 X = X+.3 

^0 PRINT T AB(32+32*SIN< X ) ) ' * ' JREM LINEA DI 6 * CARATTERI 


50 GOTO 30 IREM 

60 REM IMPAGINAZIONE DI UN TABULATO 
70 PRINT TAEs(5> '*'?TAB<8) AJTAB<20> 


10 REM ES.JIMPAGINAZIONE COMPLETA DI 
20 CLS JREM TRS80 =CALL-936 
30 PRINT TAB(30)'TITOLO' 

*0 PRINT TAB<30)■——«• JREM 
50 PRINT 

60 PRINT STRINGA57r '*' ) JREM 
70 FOR 1=0 TO 6JPRINT TAB(1+8*1)'* ' 
80 PRINT TAB(57)'*' : REM 
90 PRINT STRINGA<57»'*') 

100 FOR 1=0 TO 6JPRINT TAB(1+8*1)'*" 
110 NEXT*PRINT TAB(57)'*' 


20+20*SIN CON ^0 COLONNE 
BJTAB(28) "*" 

UN TABULATO 

APPLE=HOME APPLESOFT =PRINT'CLR' PET= 

OPPURE STRING*<5,'='> 

TRATTEGGIO SUPERIORE - 
Z*(I)♦JNEXT 

TERMINA LE 7 COLONNE DI 8 SPAZI 
TAB<4+8*I)T<I)» 


10 REM ABBREVIAZIONE DI PRINT CON '?’ (TRS80,PETfAPPLESOFT) 
20 ?J?A?B 
LIST 20 

20 PRINTJPRINT A?B 

10 REM PRINT USING 
20 PRINT USINGA 
12.33 

30 REM NUMEROSE VARIANTI E POSSIBILITÀ* SECONDO LA MACCHINA 
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Non si può gestire il formato di visualizzazione accontentandosi dello 
scorrimento automatico: sullo schermo, in basso, l’istruzione PRINT fa scatta¬ 
re lo spostamento di una riga verso l’alto di tutto ciò che è presente questo fà 
perdere il contenuto della prima linea in alto. 

Quando si vuole gestire il formato di visualizzazione, per fare un tabulato o 
dei giochi, è necessario prevedere tutto; da principio cancellare lo schermo, poi 
utilizzare diversi comandi secondo il BASIC disponibile: PRINT a (TRS) 
permette di avviare la visualizzazione in un punto dato dai valori compresi tra 
0 e 1023. Si può spostare il cursore dopo averlo ricondotto in alto a sinistra 
(PET) o fare direttamente una tabulazione verticale e orizzontale (Apple). Si 
può anche riservare una parte dello schermo per dei dati (INPUT) senza 
distruggere un tabulato in corso di esecuzione. 


10 REM ESEMPI DI ISTRUZIONI SPECIFICHE ALLE MACCHINE 
20 REM TRS 80 

30 PRINT* IfAfB ÌREM USCITA SU CASSETTA 

'T0 PRINT* 2f... SREM IDEM CON INTERFACCIA 

50 INPUT* IfAfB SREM INGRESSO DA CASSETTA 

LLIST SREM LISTING SU STAMPANTE 


60 

70 LPRINT 


SREM STAMPA 


80 REM PET 

90 PRINT*3fAfB SREM 3 DEFINITO DA OPEN 

100 INFUT*3f... SREM CON CASSETTA 1f2fSTAMPANTE 


110 REM APPLE 

120 REM USCITA DATI SU CASSETTA TRAMITE SOTTOPROGRAMMA 
130 REM IN LINGUAGGIO MACCHINA. 


La maggior parte dei BASIC hanno la stessa forma di tabulazione orizzon¬ 
tale per mezzo di un comando ausiliare associato alla PRINT che può figurare 
più volte nell’elenco degli argomenti: TAB (N) provoca lo sposamento del 
cursore nella colonna N della stessa linea (o della linea seguente se questa 
posizione è già stata superata). 

Per visualizzare una linea vuota (bianca), (in realtà nera sullo schermo in 
assenza di inversione video), è sufficiente programmare un’istruzione PRINT 
senza argomento. Se l’ultimo PRINT termina con un punto e virgola, questo 
nuovo PRINT esegue solamente un ritorno a capo, e un secondo PRINT 
(secondo ritorno a capo) fornirà una linea vuota. 

L’istruzione PRINT è frequente, e parecchi BASIC utilizzano il punto 
interrogativo come abbreviazione nella scrittura di questa istruzione. Questa 
abbreviazione è memorizzata (o seguita in forma diretta) e messa in lista come 
fosse scritta per esteso. 

Certi BASIC estesi dispongono di un’istruzione di formattazione (PRINT 
USING) seguita da una catena di caratteri, che può essere una costante ma 
anche una variabile referenziata con il proprio nome. Il vantaggio consiste nel 
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prevedere i diversi campi di applicazione come il numero di decimali da 
visualizzare, la stampa o meno di zero non significativi, il riempimento a 
sinistra con asterischi, Tinserimento di spazi (si eviterà Tinserimentodi virgole 
per separare i gruppi di tre cifre, come usano fare gli anglosassoni). 

Questo formattamento potrebbe essere realizzato con un sottoprogramma 
un pò complicato e che sarebbe necessario inserire in ciascun programma. 

La possibilità di manipolare i formati con il programma, di utilizzarli per più 
variabili da visualizzare, agevola notevolmente il lavoro per applicazioni che 
richiedono molte impaginazioni (per esempio tabulati, contabilità). Per mag¬ 


io REM DIALOGO SEMPLICE 

20 PRINT'BATTERE 0 PER CONTINUARE’JINPUT A 
30 IF A=0 THEN GOTO ....(SEGUITO) 

40 END 


10 REM DIALOGOONORMALE 
20 INPUT’VOLETE CONTINUARE ’ »Z* 

30 Z*=LEFT*(Z*r1>JIF Z*='S’THEN GOTO...'SEGUITO 

40 IF Z*=’N’ THEN GOTO...'FINE ' E* L'ABBREVIAZIONE DI REM (TRS80) 

50 PRINT-RISPONDERE SI O NO’ 

60 GOTO 20 JREM RIFIUTA RISPOSTE DIVERSE DA SI E NO 

70 REM ACCETTA SrSIrSANDRO... 

10 REM DIALOGO SOFISTICATO. NUMEROSE VARIANTI POSSIBILI 
20 DIM T.% ( 3> * Z %( 0 ) ~ ’RISPONDERE SI O NO’ 

30 Z*(1)="FATE DUNQUE ATTENZIONE’JZ*(2)=’ZUT’JZ*(3)=’MI FERMO’ 


100 INPUT"DOMANDA ’5R* 

110 IF R*»’RISPOSTA l’THEN GOTO .... •(CASO N. 1) 


130 IF R$== "RISPOSTA ULT.’THEN GOTO ... '(ULTIMO CASO PREVISTO) 
140 PRINT Z*(IE> 

150 IF IE=3 THEN STOP JREM ULTIMA PAROLA 

160 IE = IE+1JGOTQ 100 JREM GRADUAZIONE DELLE RISPOSTE 

170 REM IL PROGRAMMA CONTA LE RISPOSTE SCORRETTE E 

180 REM PIJO' FARNE UNA STATISTICA O UNA NOTA 

190 REM SI POTREBBE ANCHE INSERIRE UN TEMPORIZZATORE (ES. PAG.46) 


10 REM INPUT PROTEGGE CONTRO UN RETURN NULLO (PET) 

20 INPUT’ *(-ff JR» JREM 3 SPAZI ri CARAT.*3 CURSORE A SINISTRA 

30 IF R$«= ’*’ THEN PRINT‘RISPONDETE QUESTO O QUELLO’JGOTO 20 
40 REM SI EVITA COSI' UN ARRESTO INTEMPESTIVO 


10 REM UTILIZZAZIONE VOLONTARIA DI RISPOSTA NULLA (TRS) 

20 A = 3.14JB « 2.718 JREM VALORE IMPLICITO NORMALMENTE 

30 INPUT'CAMBIAMENTO DI PARAMETRI ’JArB 

40 REM ACCELLERA IL DIALOGO SE UNA RISPOSTA E' PIU* FREQUENTE 


giori dettagli ci si riporterà allo specifico manuale di ogni personal computer. 

L’istruzione PRINT con un numero di indicazione di periferica (lo schermo 
o display è la periferica privilegiata ed implicita nelle macchine usuali) attiva la 
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scrittura su una stampante, l’accesso ad un disco o al registratore a cassette. In 
generale il BASIC sa ciò che deve fare grazie ad una istruzione OPEN che 
precisa le caratteristiche della periferica. Scrivendo le routine necessarie si 
potrà pilotare qualsiasi periferica in BASIC: questa operazione è limitata per le 
macchine semplici fornite del solo schermo. 

Tecniche di dialogo 

L’essenziale di un linguaggio interattivo come il BASIC è di permettere il 
dialogo con la macchina. Si tratta in realtà di un dialogo con un programma in 
corso di esecuzione su quella macchina, e che qualcuno ha programmato con 
un susseguirsi di domande, di risposte articolate attorno ad un organigramma. 

Il computer pone domande al suo operatore grazie all’istruzione INPUT da 
una lista variabili. Al momento dell’esecuzione il BASIC visualizza un punto 
di domanda e attende che vengano introdotti dalla tastiera i valori corrispon¬ 
denti che sono poi assegnati alle variabili ed il programma riprende. 

Si possono impostare valori separati da una virgola su una sola linea 
(terminata con RETURN/ENTER) o una per linea (il BASIC non accetta le 
impostazioni successive). In caso di errore (in particolare incompatibilità di 
formato), il BASIC richiede una reimpostazione (REDO?). Certi BASIC 
ignorano un dato di troppo, altri provocano un errore. 

Il punto interrogativo può a volte essere reso più esplicito da un testo tra 
virgolette in capo alla linea: ciò economizza un’istruzione PRINT per porre la 
domanda. 

La formulazione della domanda può enunciare le possibili risposte: si darà 
in questo modo un’impressione di “intelligenza” maggiore non facendo appa¬ 
rire queste coercizioni. Il programma allora deve essere in grado di analizzare 
diverse varianti di risposte, e di condurre l’utente verso una risposta, corretta, 
indicando, per esempio, le risposte possibili. 

L’analisi delle risposte sarà più spinta se si desidera realizzare un program¬ 
ma “riservato” che non si arresterà su risposte di un utente che non conosca il 
programma (certi BASIC permettono anche di inibire il tasto BREAK). 

Una falla appare qualche volta se si batte “ENTER/RETURN” senza 
nessun inserimento di dati: certi BASIC continuano in sequenza, restando 
invariate le varianti della lista INPUT. Altri BASIC in questo caso si fermano 
(READY) e bisogna impostare l’istruzione CONT per riprendere. Si può 
evitare questo inconveniente visualizzando prima una risposta, poi facendo 
ritornare indietro il cursore in modo che un’eventuale risposta prenda il posto 
del carattere già visualizzato. 

Ben inteso questo tipo di programma interrogherà su delle stringhe di 
caratteri unicamente per evitare errori di incompatibilità (carattere letto in 
formato numerico). 
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Il dialogo con l’aiuto dell’istruzione INPUT presenta un inconveniente: 
l’esecuzione è sospesa in attesa dell’impostazione da tastiera dei dati richiesti. 

Un’istruzione speciale permettere al BASIC d’accedere ad un carattere 
appena battuto sulla tastiera. È sufficiente che questa istruzione sia eseguita 
frequentemente perchè il programma sia preavvertito immediatamente del¬ 
l’entrata di dati mentre funziona. 


10 REM ES. DI DIALOGO RAPIDO CHE NON INTERFERISCE CON LO SCHERMO 
20 REM ES.*.PRESA CONTABILE 


SO 7 * = INKEY*JIF Z*="" THEN 50 JREM ATTENDE IL SEGUITO 

60 REM V VALIDO»R RICAPITOLA»C CANCELLA 

70 IF ZGOTO ... :REM ARTICOLO SEGUENTE 

80 IF Z*=*C" THEN ... JREM CANCELLA IL DATO 

90 IF Z*»*R' THEN ... JREM ELENCO DEI DATI 

100 PRINT"V-VALIDQ» E=ERRORE» R=RICAPITOLAZIONE ?'JGOTD 50 
110 REM EQUIVALENTE DELLA LINEA 50 SU APPLEJ 
(50) K=PEEK( -16384 ) J IF KC128 THEN 50 
(55) POKE -16368 » 0 J Z*==CHR* < K > 


10 REM LETTURA DI UN NUMERO DA TASTIERA SENZA VISUALIZZARLO 
20 REM ES.JCODICE SEGRETO O IMPAGINAZIONE DA SALVAGUARDARE 
30 N$ == 

40 Z* ■ INKEY$JIF THEN 40 

40 GET Z% J IF Z^" THEN 'IO 
40 K » PEEK<—16384)JIF K<128 THEN 40 
45 POKE -16368» 0 JZ$=CHR$(K) 

40 GET Z% 

50 IF Z$=CHR*(13) THEN 90 
60 N* = N*+Z* 

70 GOTO 40 


JREM TRS80 
JREM PET 

JREM APPLE INTEGER 


JREM APPLESOFT 
JREM BATTUTO RETURN 
JREM CONCATENAZIONE CARATTERE PER CARATTERE 
JREM CAR. SPECIALI J TRS=13 - PET=13 - APPLE=141 


80 REM NUMERO DISPONIBILE 
90 N « VAL(N$) 


10 REM MULTITRATTAMENTO RUDIMENTALE 

20 REM ES. DI CONSULTAZIONE DI TABELLE DURANTE L'EDITING DI UNO SCHEDARIO 
30 FOR 1=1 TO 1000 

40 LPRINT "NUM"*I»TAB<15)"NOME"JTAB<30)N*<I) JREM STAMPA 

50 7.% = INKEY*JIF Z*<> * " THEN GOSUB 500 
60 NEXT 

500 IF Z*=CHR*(13) THEN 600 JREM COME ESEMPIO PRECEDENTE 

510 T* « T*+Z$JRETURN JREM AGGIUNGE CARATTERE DOPO CARATTERE 

600 PRINT N*<VAL(T*))JTS=*"JRETURN 


Per contro, sta al programma di riunire le parole carattere per carattere, di 
ricornoscere una parola prevista o un comando ENTER/RETURN. L’esecu¬ 
zione generale del programma viene allora rallentata. 

Si realizza così una interazione attiva con il programma in corso di esecuzio¬ 
ne: in un gioco con animazione si possono modificare le traiettorie o provocare 
differenti incidenti; l’informazione impostata non altera la visualizzazione. Per 
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un dialogo rapido, si può sopprimere la battitura del tasto ENTER/RETURN 
se le parole chiave sono conosciute in anticipo. Questa soluzione è pratica se si 
imposta un carattere alla volta. Si possono pure realizzare effetti speciali 
(automatismi-musica elettronica-emissione di codice morse). 


10 REM SCANSIONE TASTIERA E COMANDO DI UN MOVIMENTO 

20 REM SI SONO SCELTI DUE TASTI ARBITRARIAMENTE (QUI <- E -> > 

30 REM E DETERMINATO EMPIRICAMENTE DUE TEST INDICANTI 
*0 REM SE L'UNO O L' ALTRO E' PREMUTO 

50 I « PEEK<14400)JIF 1=64 THEN N=N+1JIF N>63 THEN N=63 
60 J = PEEK<14400)JIF J=32 THEN N=N-1JIF N<0 THEN N=0 
70 PRINT TAB(N)“*•.GOTO 50 

80 REM AGGIUNGENDO OSTACOLI (ALTRI ELEMENTI VISUALIZZATI) 

90 REM NELLA STESSA LINEA E TESTS DI N SI OTTIENE UN GIOCO 
100 REM DI CORSA AUTOMOBILISTICA 

110 REM I VALORI 14400(14336+64)»32 E 64 PER I TASTI 

120 <- E -> SONO STATI OTTENUTI CON L'AIUTO DEL PROGRAMMA A PAG. 64 



Questa istruzione speciale non è standardizzata: funzione INKEYS (TRS) 
comando GET (P.E.T.) esame della locazione-16384 (Apple) complicato dalla 
messa a zero della locazione -16368. INKEYS oppure GET ritorna l’ultimo 
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tasto battuto dopo l’esecuzione dell’INKEYS o GET precedente. Vi è dunque 
la memorizzazione di un solo carattere, che viene perduto se un INKEYS o 
GET non lo sfrutta prima della battuta di un nuovo carattere. Se non vi sono 
state delle battute dopo l’INKEYS o GET precedente, l’INKEYS o GET 
ritorna una stringa vuota anche se il tasto resta abbassato, di modo che si legga 
una sola volta il carattere battuto. 11 GET dell’Applesoft funziona differente¬ 
mente: il programma si ferma e attende una battuta sulla tastiera il che non 
permette l’interazione in tempo reale. 

Al contrario l’esame degli indirizzi che costituiscono la tastiera (funzione 
PEEK) darebbe un risultato finché un tasto resta abbassato: per riconoscere un 
carattere a questo modo, bisogna inoltre esaminare 6 o 7 indirizzi e decodifica¬ 
re i risultati. 
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10 REM FUNZIONE RND <RANDOM - CASUALE) 

20 REM TRS80 

30 A = RND(0) SREM RITORNA UN REALE DA 0 A 1 

*»0 A « RND(N) SREM RITORNA UN INTERO DA 1 A N 

50 RANDOM SREM ROTTURA DELLA SEQUENZA (LIMITI INCLUSI) 


20 REM PET E APPLESOFT 

30 I = RND(N) JREM RITORNA UN REALE TRA 0 E 1 

^0 REM N IN ALCUNI CASI SERVE DA AGGANCIO A UNA SEQUENZA 
50 REM ARGOMENTI DIVERSI DANNO SEQUENZA DIVERSE 
60 1 — INT<1+ <N-l)*RND(36)) SREM DA' UN INTERO DA 1 A N 

20 REM APPLE INTEGER 

30 I * RND(N) SREM DA* UN INTERO DA 1 A N 


10 REM UTILIZZAZIONE NEI GIOCHI 

20 1 — RND(6> SREM SIMULA UN TIRO AI DADI 

30 I = RND(52) SREM DA* UNA CARTA 

*0 REM FARE ATTENZIONE AI VALORI LIMITE 

50 REM E VERIFICARE CHE ESSI APPAIANO AL MOMENTO DELLA MESSA A PUNTO 


10 REM ILLUSTRAZIONE GRAFICA DI UNIFORMITÀ 1 DELLA CASUALITÀ' 
20 SET(RND(127) r RND()> SREM TRS80 

20 PLOT RND<40)*RND<40> SREM APPLE -AGGIUNGERE COLOR=RND(16) 
30 GOTO 20 


10 REM DIMOSTRAZIONE EMPIRICA DI UN PARADOSSO PROBABILISTICO 
20 REM "BATTENDO A CASO SU UNA TASTIERA SI E' CERTI 
30 REM DI COMPORRE UN QUALSIASI TESTO IN UN TEMPO FINITO" 

«0 DATA AfB»C»D»E»FrG»H»lFJfK»L»M»NfO»P»Q»R»SfT»U»V»QfX»YfZ 
50 DIM L*<26)SFQR 1=1 TO 26SREAD L$(I)SNEXT 
60 INPUT-TESTO "JT*SL1=LEN(T*)SC=0 

70 I = RND(26)SPRINT L*(I)»SH*=RIGHT*(H*+L*(I)fLI) 

80 C - C+1S-XF TSOH* THEN 70 

90 PRINTSPRINT"COINCIDENZA DOPO"JCJ"BATTUTE A CASO" 

100 REM IN PRATICA E' LUNGOr ANCHE PER UN TESTO DI 3 LETTERE! 
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CAPITOLO 6 


FUNZIONI SPECIALI 


Simulazione con numeri casuali 

Tutti i BASIC hanno una funzione che fornisce un numero preso a caso in un 
intervallo. Si può simulare così una distribuzione statistica, la conduzione di 
un’impresa con speranze di guadagno e di perdite, e soprattutto programmare 
numerosi giochi: dadi, roulette, carte, battaglia navale, ecc. 

La funzione è in generale chiamata RND (N) ma non è standardizzata. 

Alcuni BASIC danno un numero compreso da 0 a 1, e l’argomento tra 
parentesi è “fasullo” (serve solo per rispettare la sintassi formale della funzio¬ 
ne): altri BASIC danno un intero tra 0 e N, oppure 1 e N; infine altri 
permettono i due modi di funzionamento secondo il valore assegnato a N. Si 
passa facilmente dal numero tra 0 e 1 al numero tra 0 e N moltiplicando per N, 
poi prendendo il valore intero (partire da N-l e aggiungere 1 per arrivare a un 
numero da 0 a N) e viceversa. 

Ci sono vari metodi alla base della funzione RND: l’una consiste nel 
prendere le cifre di un clock che gira molto rapidamente. Il caso si svolgerà 
bene se non si richiama la funzione ad intervalli troppo ravvicinati in rapporto 
alla velocità di calcolo del clock oppure troppo regolari. Un altro metodo 
consiste nel provocare un superamento della capacità. Si ha allora uno 
“pseudo-caso” che fornisce sempre la stessa sequenza di numeri “a caso” se si 
riesegue un programma nelle stesse condizioni a partire dalla messa sotto 
tensione: ciò può “in certi casi” disturbare e un’istruzione RANDOM o 
RANDOMIZE permette di rompere quella sequenza all’inizio di un program¬ 
ma. 


Esame e scrittura diretta in memoria 

Queste possibilità sono molto importanti se ci si interessa a quello che c’è 
dentro la macchina, per comunicare con dei programmi scritti in linguaggio- 
macchina e allo stesso modo per comunicare con delle periferiche che occupa¬ 
no una posizione memoria (memory mapped): si può dunque con opportune 
istruzioni, andare a vedere ciò che succede in memoria. 

La funzione PEEK (in inglese: guardare furtivamente) ritorna un numero 
intero da 0 a 255 che rappresenta il contenuto di un byte di memoria all’indiriz¬ 
zo indicato (da 0 a 65535, qualche volta da -32767 a +32767 con-1 equivalente 
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10 REM FUNZIONE PEEK 

20 REM SI METTE IN EVIDENZA IL FUNZIONAMENTO DELLA TASTIERA 
30 REM OGNI TASTO COLLEGA ALCUNE LINEE DATI CON ALCUNE 
40 REM LINNE INDIRIZZO. SETIANDO A 1 ALCUNI BITS QI CERTI 
SO REM BYTES. CHE E' SUFFICIENTE CONTROLLARE 

60 DIM A(7>:A<0)=14336 JREM TRS80 - INIZIO INDIRIZZI TASTIERA 

70 FOR 1=1 TO 75A<I> SS A< 0)+2^<I-l > JNEXT JREM AC 0 > + l .2.4.8.16... 

80 FOR 1=1 TO 7 

90 PRINT TAB<5*1>PEEK<A<I )>i 

100 next:goto bo :rem I VALORI SCORRERANNO in basso allo SCHERMO 

110 REM SI VEDRÀ* FACILMENTE L* AZIONE DI CIASCUN TASTO 


10 REM CONSULTAZIONE DI TABELLE DEL BASIC 

20 REM ES.JREALIZZAZIONE DELLA FUNZIONE MEMCTRS) O FRECPET) SU APPLE 
30 Al = PEEK(204>+256*PEEK<205) 

40 A2 = PEEK<202>>+V256*PEEK<203) 

50 PRINT'MEMORIA LIBERA * 'JAZ-Al.' BYTES' 


10 REM FUNZIONE POKE 

20 REM ES.JESPLORAZIONE DEL GENERATORE DI CARATTERI 

30 REM ELIMINANDO GLI EFFETTI SUL PRINT DEI CARATTERI SPECIALI 

40 A = 15360 JREM INDIRIZZO INIZIALE SCHERMO (TRS) PET=32768 

50 FOR 1=0 TO 255JPOKE A+I.IJNEXT 


10 REM USO DI POKE PER LA MODIFICA DEI PARAMETRI 

20 REM LISTA ILLIMITATA (CONFRONTARE I MANUALI RELATIVI) 

30 REM TRS 

40 POKE 16424.N JREM N RIGHE PER PAGINA IN STAMPA 

50 POKE 16553.255 JREM RIABILITA IL RESTORE DOPO L’USO DELLA 

CASSETTA O ERRORE SU DATA 


60 REM PET 
70 POKE 59409.52 
80 POKE 59468.14 
90 REM APPLE 
100 POKE 50.63 
110 POKE 50.127 


JREM SPEGNE L.0 SCHERMO (60 RIACCENDE) 

JREM SET CARATTERI MINUSCOLI (12=MAIUSC0LI) 

JREM INVERSIONE VIDEO 
JREM LAMPEGGIO VIDEO 


a 65535, -32767 a 32768). L’ordine POKE (in inglese: cacciare il proprio naso 
dappertutto) scrive il carattere corrispondente ad un numero intero entro 0 e 
255 all’indirizzo indicato. 

Con il PEEK si può esaminare una posizione dello schermo (per esempio per 
evidenziare in un’animazione, uno scontro e programmare un rimbalzo), si 
può evidenziare la battuta di un tasto della tastiera (nelle macchine semplici 
dove la tastiera più economica è costruita su qualche posizione dello spazio di 
memoria), si possono consultare alcune tabelle gestite in linguaggio macchina, 
si possono scrivere in BASIC routine di aiuto alla programmazione in 
linguaggio-macchina (con l’istruzione POKE è possibile realizzare lo svuota¬ 
mento memoria, disassembler, mini-assembler etc). 

Con POKE si può modificare una posizione che non ha importanza in 
memoria RAM (il solo rischio è di disturbare il programma in corso; vedere le 
tabelle del BASIC. In questo caso è necessario rinizializzare il sistema con 
RESET o più drasticamente spegnendo e riaccendendo la macchina). POKE 
eseguito ad un indirizzo corrispondente ad una locazione di memoria ROM 
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oppure PROM non ha alcun effetto. L’istruzione POKE permette di visualiz¬ 
zare un carattere in qualsiasi posizione dello schermo (nelle macchine comuni 
dove la memoria di schermo fa parte dello spazio accessibile al microprocesso¬ 
re). Il programmatore deve allora fare attenzione agli errori bizzari di pro¬ 
gramma dovuti ad una POKE intempestiva sulla zona programma del BASIC. 
Si realizzano numerosi comandi speciali con una POKE ad un indirizzo 
particolare (per esempio inversione di video, dimensione di visualizzazione, 
passaggio ad un set di caratteri grafici, ecc.). 

Una periferica può disporre di un indirizzo di memoria (sovente una per 


LO REM ACCESSO ALLE PORTE I/O: INP E OUT 

20 REM COMPLEMENTO DI PEEK E POKE PER LE MACCHINE 2-80 E 8080 
30 REM DOVE L.E PORTE HANNO INDIRIZZI PROPRI (0-255) 

TI) REM E NON INDIRIZZI DELLA MEMORIA DEL MICROPROCESSORE 
50 REM ES•:TRS (PORTA 255 NELLA VERSIONE BASE) 

60 PRINT INP(255) 'RILEVA IJN VOLTAGGIO > 0 < 2 V SUL JACK LETTURA 

70 OUT 255.0 'PONE 0.5 V SUL JACK DI REGISTRAZIONE 

1 IV 

2 0 V 

80 OUT 255.1.:OUT 255.2:GOTO 80 'RONZIO PROGRAMMABILE 

90 REM IL BASIC E' TROPPO LENTO PER FARE DIRETTAMENTE DELLA MUSICA 

100 OUT 255.0 'CHIUDE IL RELAIS (MARCIA CASSETTA) 

110 OUT 255.8 'SETTA IL VIDEO A LINEE DI 32 CARATTERI 

120 OUT 255.N 'AZIONE MULTIPLA RIFERITA AD OGNI BIT 

130 REM ES. t SE N NON CONTIENE IL BIT CORRISPONDENTE A O 

1O0 REM IL RELAIS E' APERTO.SI POSSONO COMANDARE APPARECCHI BASSO VOLTAGGIO 


leggere e una per scrivere): vale a dire che l’hardware corrispondente segnala la 
presenza di questo indirizzo e rilegge allora il carico dei dati (un byte) all’entra¬ 
ta o all’uscita sulla periferica, così realizzabile per mezzo di PEEK o POKE. 

Alcuni BASIC hanno delle istruzioni analoghe per indirizzare delle linee di 
I/O specializzate e non appartenenti allo spazio di memoria del microproces¬ 
sore: queste sono le istruzioni INP e OUT (vedere i particolari nei manuali). E il 
caso soprattutto del TRS 80 dove la linea numero 255 serve a comandare 
l’interfaccia cassetta, la misura dei caratteri visualizzati, il relais di attivazione 
e arresto del motore del registratore a cassette. 


45 




46 





















































10 REM ESCLUSIONE AL BASIC DI UNA ZONA DI MEMORIA 
Z0 REM ES.i TRS 
SYSTEM 
/O 

MEMORY SIZE ? 20000 !REM RISERVA GLI INDIRIZZI DA 20000 


10 REM INSERIMENTO DI UN SOTTORROGRAMMA IN LINGUAGGIO MACCHINA 
20 DATA 0,0,0,0,0,201.999 

30 REM OGNI CIFRA RAPPRESENTA UN BYTE. GUI IL SOTTOPROGRAMMA 
T0 REM E' FASULLO <0-OPERAZIONE NULLA,201=RET) 

50 REM 999 E' UN INDICE DI FINE PER IL BASIC 

60 ad = zoomi :a-ad :rem indirizzo iniziale di inserimento 

70 READ IÌIF I>255 THEN (NDN SEMPRE L’INDIRIZZO DI ENTRATA) 

sopore a.i:a=a+i:goto 70 

90 REM MESSA IN OPERA INDIRIZZO DI CHIAMATA PER USR(N) 

100 1% = 20000/2561POKE 16527.121REM TRS (POKE 2»... PET) 

110 IX = 20000“ 12*256IPOKE 16526.IXìREM TRS (POKE 1>... PET) 


150 A=USR(N> tREM PROVOCA LA CHIAMATA DEL SOTTOPROGRAMMA 


10 REM CHIAMATA DIRETTA AD UN INDIRIZZO 

20 SYS(A> !REM PET 

30 CALI-(A) ÌREM APPLE 

TO REM PROGRAMMAZIONE PIU' SEMPLICE CHE CON USR 


10 REM IDEE DI UTILIZZAZIONE 

20 REM CHIAMATA DI NUMEROSE ROUTINES NEL BASIC 

30 REM EFFETTI SPECIALI (SFORTUNATAMENTE POCO O NULLA DOCUMENTATI) 
40 REM ES.: ACUSTICA,OSCILLOSCOPIO FREQUENZA MEDIA O BASSA 
50 REM ES.) SCORRIMENTO DELLO SCHERMO VERSO UN LATO O VERSO L'ALTO 
60 REM ES.: PILOTAGGIO DI STAMPANTE NON FORNITO DAL COSTRUTTORE 
70 REM NECESSITA' DI CONOSCERE L' HARDWARE E L' ASSEMBLER 


Sottoprogrammi il linguaggio macchina 

La programmazione in linguaggio macchina va oltre lo scopo di questo 
libro. È un pò più difficile della programmazione in BASIC e dipende stretta- 
mente dal microprocessore attorno al quale la macchina è costruita. 

Certe funzioni, sono possibili solo in linguaggio macchina. La scrittura 
risulta più fastidiosa e la messa a punto più lunga: è molto interessante servirsi 
dei due linguaggi nello scrivere i programmi, in linguaggio macchina solamen¬ 
te lo stretto indispensabile per ottenere la prestazione richiesta, e tutto il resto 
del programma in BASIC. 

Ciò può essere effettuato chiamando un sottoprogramma in linguaggio 
macchina; come per il GOSUB, il ritorno si farà all’istruzione BASIC seguen¬ 
te. La chiamata si fa per mezzo della funzione USR (N). L’argomento è qualche 
volta “fasullo” (serve solamente a rispettare la forma sintattica della funzio¬ 
ne), qualche volta è un numero intero che sarà comunicato al sottoprogramma 
richiamato. L’indirizzo del sottoprogramma, prima della chiamata per mezzo 
della USR (N), deve essere posta per mezzo di una POKE in una certa 
posizione (16526 e 16527 sul TRS, 1 e 2 sul PET). 
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Qualche volta la chiamata è più semplice con un’istruzione SYS (indirizzo) 
(PET) che evita i POKE preliminari (sono necessarie 2 istruzioni POKE poiché 
un indirizzo completo sta in due byte), oppure con l'istruzione CALL (Apple). 

Il comando SYSTEM seguito dall’indirizzo (TRS) è mal concepito e non 
può essere utilizzato in un programma BASIC. 

Sottoprogrammi semplici faranno scorrere lo schermo in una direzione 
insolita, o permetteranno di guidare altre periferiche, o di realizzare effetti 
speciali non accessibili al BASIC del computer utilizzato. 

Il BASIC è lui stesso un programma in linguaggio macchina, privilegiato nei 
confronti degli altri (eventuali) con i quali è necessario definire una suddivisio¬ 
ne della memoria, riassunta in un piano di occupazione (questa suddivisione è 
detta “memory map”). 

Alla partenza, il BASIC è tenuto a disporre di tutto lo spazio che gli occorre 
e bisogna tener conto quindi della “memory map” che varia considerevolmen¬ 
te da una macchina all’altra, dato che la zona libera all’utente può essere 
all’inizio, nel mezzo o alla fine rispetto alle zone riservate al BASIC. Qualche 
volta la locazione d’inizio della memoria utente può essere modificata all’ac¬ 
censione del sistema (è il ruolo della domanda misteriosa: memory size? del 
TRS 80 livello 2, alla quale si risponde con un indirizzo al di là del quale la 
memoria sarà riservata all’utente). Ben inteso, che il linguaggio macchina 
dipende dal microprocessore e questi sottoprogrammi non saranno necessaria¬ 
mente compatibili da una macchina all’altra. 
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CAPITOLO 7 


EFFETTI GRAFICI E ALTRI EFFETTI 


Vi sono più modi per ottenere effetti grafici. Il più semplice consiste nell’uti- 
lizzare dei caratteri usuali, specialmente gli asterischi, le lineette, i segni meno o 
uguale, la lettera I, la barra verticale se questo carattere esiste. Si possono cosi 
presentare in modo piacevole le colonne di un tabulato. L’asterisco dà dei tratti 
meno belli, ma i tratti ottenuti con i segni — = e I sono più difficili da 
programmare, specialmente per gli angoli e le intersezioni di tratti verticali e 
orizzontali. I più pazienti aggiungeranno il segno + e distingueranno le linee 
delle lineette inferiori e superiori (per i bordi dei tabulati), dalle linee del segno. 

Se il set dei caratteri disponibile è particolarmente ricco, si possono ottenere 
effetti semi-grafici: caratteri che permettono di trattare gli angoli dei tabulati, 
di fare delle sagome con la giusta posizione di semicerchi e di quarti di 
semicerchi e di ottenere i simboli delle carte da gioco. Questi caratteri specializ¬ 
zati danno degli ottimi effetti grafici (caso del PET), ma non si prestano 
altrettando bene ad un uso generale. 

L’altra opzione semi-grafica consiste nell’imitare la visualizzazione grafica 
sostituendo ogni punto con un quadrato più o meno grande, che dà un effetto 
“scacchiera”. Se per esempio ci sono 6 caselle per carattere, ciò rappresenta in 
realtà 64 caratteri completi (2 6 ) che danno l’immagine di 64 combinazioni 
possibili (caso del TRS) e la visualizzazione di un punto consiste in realtà nel 
visualizzare il carattere corrispondente alla nuova combinazione di 6 punti. 

Il sistema di utilizzazione di questi caratteri semi-grafici è legata all’hardwa- 
re. Sovente la memoria video immagazzina caratteri in 7 bits al posto di 8 (per 
economia). Si può allora disporre di 128 combinazioni che non hanno maiu¬ 
scole (possibilità di 64 caratteri alfanumerici e 64 caratteri semi-grafici). 

Se vi sono più di 128 combinazioni possibili (logicamente 256), occorre 
passare da un gruppo di 128 all’altro per mezzo di uno scambio dell’ottavo bit. 

È ciò che avviene nel PET dove non sono disponibili simultaneamente 
caratteri maiuscoli e minuscoli (il passaggio si fa per mezzo POKE 59468,14 
per le minuscole e 59468, 12 per maiuscole e grafici), mentre sull’Apple o 
suUTTT il passaggio è effettuato per mezzo dell’istruzione GR (attivazione 
della visualizzazione grafica, le 5 linee in basso non cambiano e restano 
alfanumeriche) e l’istruzione TEXT (riativa la visualizzazione alfanumerica). 

I caratteri corrispondenti a una combinazione di caselle (6 nere o bianche sul 
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TRS, 2 caselle di 16 colori sull’Apple) non sono necessariamente realizzate nel 
modo consueto con un generatore di caratteri. Sull’Apple un comando specia¬ 
le fissa i colori dei prossimi punti visualizzati (per spegnere un punto si 
visualizza un punto di colore nero). Per combinare il colore con un set esteso di 
caratteri occorre un’architettura più costosa, per esempio 10 bits per ogni 
carattere visualizzato e non più un byte per 128 simboli (7 bits) con 8 colori (3 
bits). 


10 REM PRESENTAZIONE DI TABULATO CON I CARATTERI USUALI 
Z0 POR J=0 TO 36 : ? • --- ■ i : NEXT : PRINT 
30 REM EQUIVALE A PRINT STRING*<37,•»■) 

40 POR J==0 TO SI PRINT " IPPEPE * ! * NEXT J PRINT " I " : REM (--SPAZIO 
50 FOR J=0 TO 5ÌPRINT TAB(6*J)'I •; Ji : NEXT tPRINT• f(-I■ 

60 FOR J=0 TO 361 PRINT “ » “ » t NEXT 2 PRINT 


10 REM VISUALIZZA UN OMINO CON IL FET 

20 A*="«-«-t2 : REM 2 MOVIMENTI DEL CURSORE 
A SINISTRA E 1 IN BASSO 
30 •*•«#+" I “+(«+"/V 

40 PRINT 8*;"..." ! REM VISUALIZZA L’OMINO 


10 REM VISUALIZZARE UN AEROPLANINO CON IL TRS80 
20 A* = CHR*(140)+CHR4(1S7> !REM g et |j 

30 PRINT A* 

40 REM QUESTO METODO DA' UNA VISUALIZZAZIONE PIU' 

50 REM E RESET.PRIMA DI TUTTO BISOGNA STABILIRE UNA TAVOLA DI CORRISPONDENZA 


10 REM VISUALIZZARE LA TAVOLA DEI COLORI PRESENTI SU APPLE 
20 GR TREM SET DI CARATTERI GRAFICI=QUADRATI COLORATI 

30 FOR 1-0 TO 15:COLORAI:PLOT O.ItNEXT 

40 REM PER ACCELERARE LA VISUALIZZAZIONE IN BASIC SI POTRÀ'» COME SOPRA» 

50 REM CERCARE LE CORRISPONDENZE <1 CAR. SPECIALE» 2 CASELLE COLORATE 
60 REM E UTILIZZARE PRINT AL POSTO DI PLOT*-COLOR. GR E' SEMPRE NECESSARIO 
70 TEXT tREM SET DI CARATTERI NORMALI 

10 REM SET/RESET E PLOT/COLOR. LE COORDINATE CARTESIANE 

20 REM CONVENGONO SOPRATTUTTO SE LA FORMA EQUIVALE A UN' EQUAZIONE 

30 REM ALTRIMENTI BISOGNA VISUALIZZARE PUNTO PER PUNTO (NOIOSO) 

40 FOR 1=11 TO 12 

50 SET(I»Y>: SET < X » I ) : SET ( I » I ) :REM TRATTI ORIZZONTALI» VERTICALI» DIAGONALI 

60 set<i»io-i>:next :rem z' diagonale 

70 REM IDEM CON PLOT (APPLE) 


RAPIDA CHE CON SET 



Per comandare una vera visualizzazione grafica, per esempio con una 
definizione di 512 x 512 punti, ci si imbatte in due difficoltà. Una simile 
immagine rappresenta 64 Kbyte d’informazione (punti bianchi o neri senza 
gradazione) e questa massa d’informazioni sarà sempre lenta da trattare con 
un BASIC interpretato. Del resto il costo dell’hardware necessario è general¬ 
mente assai elevato. 
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Visualizzazione in coordinate cartesiane 


È il sistema di istruzioni SET (TRS 80) e PLOT (Apple). Gli argomenti dati 
sono un’ascissa (0 a sinistra, 127 oppure 39 a destra) e un’ordinata (0 in alto, 47 
o 39 in basso). Si ha dunque un quadro positivo con l’asse delle ordinate (Y) 
inverso in rapporto alle convenzioni matematiche usuali. 

Questo sistema permette di prorgammare la visualizzazione di curve e di 
disegni diversi. Permette di tracciare dei tratti orizzontali o verticali. 


10 REM ES. DI CURVE: SINUSOIDI 
20 N = 1 

30 FOR X-0 TO 127 
40 Y = 23+23*SIN<X/N> 

50 SET < X » Y)J NEXT 
60 N = N+l 
70 CLSJGOTO 30 


tREM 0 -> 39 PER APPLE 

:rem n+iixsiN •- 
:rf:m Fior x*y »■ 

:rem sinusoidi sempre piu* 

:rem GR PER APPLE 


PIATTE 


80 REM ALTRI ESEMPI PAGG. 28 E 30 


10 REM MOVIMENTO SEMPLICE E RIMBALZOO 

20 REM SI DEFINISCE UNA VELOCITA’ PER MEZZO DEI COMPONENTI VERI. E ORIZ. 

30 REM IL. RIMBALZO SI OTTIENE INVERTENDO IL SEGNO DI UNA COMPONENTE 
<10 DEFINT V»X»Y tREM DICHIARATI INTERI PER ACCELLERARE 

so vx=i :vy=i:x=b:y=5 jrem velocita 1 iniziale e partenza 

60 RESETCXrY) JREM APPLE COLOR= 0 JPLOT X,YJCOLORA... 

70 X”X+VX J Y»Y+VY J SET < X » Y)J REM MOVIMENTO DI 1 VALORE X E Y 
80 IF X<2 OR X>125 THEN VX=-VX JREM RIMBALZO 
90 IF Y<2 OR XM5 THEN VY^-VY JREM'APPLE <2 OR >37 

100 REM IL MARGINE PERMETTE VELOCITA’ DI +/- 2 

. AZIONI DI GIOCO» TEST DI INCONTRI» MODIFICHE DI VELOCITA’ 

160 GOTO 60 

170 REM IL SET <70) E' APPENA PRIMA DI RESET <60),COSI* SI MINIMIZZA 

180 REM LO SPEGNIMENTO.PER AVERE SET PRIMA DI RESET OCCORRONO COOR. INTERMEDIE 


10 REM PRINT E UTILIZZAZIONE DI UN CARATTERE COME PROIETTILE 
20 Z*=CHR*<183> JREM SCELTA DI UN CARAT. GRAFICO ( 


30 PRINT CHR«<23) 

^»0 PRINTGNrZ* 

50 N ~ N+l JPRINTG?N»Z$» 


JREM PASSAGGIO AI CARATTERI DOPPIA LARGHEZZA 
JREM OGGETTO IN POSIZIONE N 
JREM UN PASSO A DESTRA ECC. 


10 REM ROTAZIONE DI UNA RUOTA <PET> SULLO STESSO PUNTO 

20 ft#=" t <-r D*=“ Vt «■" 

30 F'RINT AtSSGOSUB 50 SPRINT B*iSGOSUB 50 SPRINT C*> 

*0 GOSUB S0SPRINT D*SSGOSUB 50 SCOTO 30 SREM LOOP 
50 FOR 1=1 TO 30SNEXT8RETURN SREM RITARDO REGOLABILE 


Animazione 

L’animazione consiste nel combinare effetti grafici in un tempo prefissato. 
Potendo eseguire i programmi assai velocemente, si può ottenere l’illusione dei 
movimenti, assai rapidi se il programma è semplice come per un gioco con la 
palla. 

Se è necessario programmare dei movimenti complessi con più oggetti, il 
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BASIC sarà generalmente un pò lento; i video giochi specializzati vengono 
programmati in linguaggio macchina oppure a partire da circuiti integrati 
specializzati che realizzano simultaneamente la visualizzazione sullo schermo 
e la gestione dei punti in movimento. 

Un modo seplice, ma grossolano, per ottenere un movimento è quello di 
utilizzare lo scorrimento automatico messo in moto dall’istruzione PRINT in 
basso sullo schermo. Un perfezionamento consiste nell’interagire con questo 
movimento apparente senza fermarlo, (vedere anche INKE Y$, GET e PEEK). 

Una complicazione supplementare consiste nel sottoporre a test la nuova 
posizione del punto mobile prima della visualizzazione, ciò che segnala uno 
scontro o una collisione. Un’altro miglioramento consiste nello spostare più 
punti indipendenti o ancora nello spostare un punto mobile avente una forma, 
cioè più punti da spostare simultaneamente. 

I punti saranno ottenuti per mezzo di SET o PLOT (punti più fini, ma 
esecuzione un pò più lenta) o per mezzo di PRINT o POKE (punti corrispon¬ 
denti a un carattere, 6 o 2 volte più grandi, ma esecuzione più rapida). Se il 
punto mobile non lascia traccia, bisogna cancellare la vecchia posizione dopo 
aver visualizzato la nuova, per diminuire l’impressione dello sfarfallio. 

I movimenti con PRINT sono ottenuti sia con la variante indirizzo assoluto 
(PRINTcr del TRS) sia visualizzando una stringa formata dal carattere che 
serve da elemento mobile concatenato (in caso di bisogno in sandwich tra 
diversi caratteri speciali di movimento del cursore. Questo metodo dà dei 
movimenti semplici da scrivere ma nei quali è più complicato seguire la 
posizione; per esempio per segnalare una collisione, rimbalzare sui bordi senza 
provocare l’azione standard dell’istruzione PRINT (vedere lo scorrimento 
intempestivo in fondo al paragrafo). La disposizione dei caratteri speciali 
influirà sull’impressione di sfarfallio. 

Generalmente il movimento è ottenuto con la visualizzazione dell’elemento 
mobile nella sua nuova posizione. La logica si complica con un urto su un 
ostacolo fisso o un altro elemento mobile secondo gli effetti desiderati: l’osta¬ 
colo può restare a posto e non occorre cancellarne la precedente posizione; un 
altro elemento mobile può cambiare di direzione e nella messa a punto si 
incontreranno sovente delle difficoltà nella definizione dei test successivi. La 
più corrente difficoltà riguarda prima di tutto l’uscita dello schermo per mezzo 
di PLOT o SET oltre le coordinate visualizzabili. Poi in certi casi di rimbalzi, la 
precedente posizione sfugge alla cancellazione e l’elemento mobile lascia 
tracce sgradevoli che provocheranno esse stesse altri urti e rimbalzi. Altre 
eventuali difficoltà: la collisione sfuggirà al test a causa di un cattivo intreccio 
delle visualizzazioni e delle cancellazioni o, ancora più noioso, perchè le 
traiettorie si incrementano con delle velocità superiori a 1 e le posizioni 
istantanee non coincidono. Occorre allora fare il test a tutto il sistema per 
scoprire l’incontro. 
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Altri effetti speciali 


La prima generazione di personal computer non disponeva affatto di effetti 
acustici. L’Apple possiede un altoparlante, in realtà un bip acustico che 
permette qualche semplice effetto: segnalazioni di errore d’impostazione (es. 
carattere alfabetico in una zona riservata a numeri); utilizzazione per giochi. In 
linguaggio macchina si può comandare la frequenza del suono ottenuto e 
suonare una musica elementare (toni semplici, sibilìi, glissando lento o rapi¬ 
do). 

10 REM MOVIMENTO DI UN OGGETTO CHE OCCUPA PIU' CARATTERI 
20 REM SECONDO IL SENSO DEL MOVIMENTO. BASTA CANCELLARE UNA 
30 REM PARTE DELLA POSIZONE PRECEDENTE 

TO REM ES.: SPOSTAMENTO ORIZZONTALE DELL' AEREO PAG .72 (TRS) 

50 A* =■ ’+CHR*(lT0)+CHR*(157> :REM L.0 SPAZIO INIZIALE SI SPOSTA 

51 REM E CANCELLA IL. DISEGNO 

60 FOR 1=0 TO 500 

70 PRINT8 I.AU :next 

SO REM VARIANTE SENZA PRINT0 (INDIRIZZO ASSOLUTO SULLO SCHERMO) 

90 A*.= - ■ t CHR* ( ITO) +CHR* ( 157 ) +CHR*( 2T ) +CHR* ( 26 > : REM 2 CURS. A SIN. 

100 PRINT a*:goto 100 


10 REM SPOSTAMENTO DELL' OMINO PAG. 72 (PET) 

20 A» •<-<-< 1- :REM 3 CURS. A SINISTRA 1 IN BASSO 

30 B* =" '•'"♦fi**" _L" +-H$+" Il " +H$+ " /V (DISEGNO DELL' OMINO) 

■10 B* -Bifff-fT'M'- :rem cursore a posto per IL SEGUENTF 

so print b*::goto 50 :rem disegno verso destra 

60 REM SE SI VUOLE UNO SPOSTAMENTO IN TUTTI I SENSI BISOGNA AGGIUNGERE 
70 REM DEI BL.ANK E <r PER CANCELLARE TUTTO 
80 REM QUI SI CANCELLA SOLO LA META' SINISTRA 


10 REM SPOSTAMENTO GENERALIZZATO DI UN OGGETTO INSCRITTO IN UN 

11 REM RETTANGOLO X1EX2»Y1EY2 

20 AD = 153601 REM INDIRIZZO INIZIALE SCHERMO 
30 Al =AD+6T*Y1 +X1 : A2=AD+6T*Y2-*-X2 1REM ANGOLI 

TI) H =Y2-Y1 :L.=X2~X1 

so aj =ai:for j=o to h:a=aj 

60 FOR 1=0 TO LIPOKE A~6T.PEEK(A):A=A+1:NEXT i:REM A-6T4-63.65 l t 

70 AJ =AJ+6 T:NEXT j ( \ / 


so aj =a 2 :for j=o to h:a=aj 

90 FOR 1=0 TO LIPOKE A+6T»PEEK(A> :A=A+l:NEXT I:REM A+6Tf63.65 

100 AJ =AJ-6 T:NEXT j 


no ai =ai:for 1=0 to l:a=ai 

120 FOR J=0 TO H1POKE A-l»PEEK(A):A=A+6T:NEXT J1REM A-l(-65,+63 

130 AI =ai+i:ne.xt I 


ito ai =A2:for 1=0 to l:a=ai 

150 FOR J-0 TO H:POKE A+1»PEEK(A):A=A-6T:NEXT J:REM A-l«+65»-63 

160 ai =ai~i:next I 

Certi personal computer più recenti permettono l’accesso a uno o più 
generatori di suoni direttamente dal BASIC. Alcuni permettono di generare 
delle forme di caratteri per mezzo di programmi (non ancora disponibili a 
livello stampanti). Altri hanno delle possibilità di interfaccia a diverse periferi¬ 
che: Bus IEEE 488 (istruzioni CMD del PET), joystick, penna ottica, comando 
di relais elettrici, questo dialogo si realizzerà con le istruzioni PEEK-POKE(o 
INP-OUT). 
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CAPITOLO 8 


PREPARAZIONE DEI PROGRAMMI 


Prima di incominciare un programma, ad eccezione di casi molto semplici, è 
quasi indispensabile fare uno schema che rappresenti il concatenamento delle 
differenti fasi di esecuzione. 

Esistono dei segni convenzionali rappresentati qui sotto. Non è indispensa¬ 
bile utilizzarli, ma è necessario disimpegnare dei blocchi la cui funzione sia 
chiaramente definita: variabili utilizzate in entrata, quel che effettua il blocco, 
entrate-uscite. 

Questa riflessione si chiama analisi e lo schema che ne risulta è l’organigram¬ 
ma (chiamato in inglese flow-chart). Ciascun blocco sarà descritto da vari 
commenti che saranno inclusi vantaggiosamente nel programma. 



SCHEDA 




DISCHETTO 


Scrittura di un programma 

Alla accensione, le macchine più comuni sono pronte a ricevere la battitura 
di un programma o di comandi; l’interprete BASIC visualizza un segno di 
riconoscimento (prompt) ed esamina la tastiera. Si dice che ci si trova in 
ambiente BASIC. 
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READY PRONTO 

> (INDICAZIONE DEL SISTEMA BASIC) 

10 REM XXXXXXXXXXXXXXXXXXXXXXXXX 

20 REM XESEMPIO* 

30 REM xxxxxxxxxxxxxxxxxxxxxxxxx 
•00 REM 

50 REM LE NOTE SERVONO AL COMMENTO E 

60 REM ALL' IMPAGINAZIONE. UGUALMENTE AI SISTEMI D'IMPIEGO 
70 REM QUESTA E' UN'ISTRUZIONE MOLTO MOLTO MOLTO MOLTO M 

OLTO LUNGA (A CAPO AUTOMATICO). ANNULLAMENTO DELL'IMPAGINAZIONE 


0 REM NUMERO DI LINEA MINIMO 

65529 REM NUMERO DI LINEA MASSIMO (TRS APPLE). A VOLTE 32767 

PRINT LOG(2) (REM MODO COMANDO ESEGUITO IMMEDIATAMENTE 

0 .695 

10 REM OGNI ISTRUZIONE PUÒ' ESSERE ESEGUITA IN MODO COMANDO 
20 REM E VICEVERSA 

30 REM IL MODO COMANDO PERMETTE DI FARE CALCOLI O TEST 
60 REM IMMEDIATAMENTE SU UN' ISTRUZIONE INCERTA 


10 GOTO 225 'EDIZIONE FINALE '=REM (TRS80) 


10 REM PUÒ' SERVIRE AO INIBIRE UN'ISTRUZIONE SENZA DISTRUGGERLA 
20 REM E SENZA DOVERLA RISCRIVERE NUOVAMENTE 

50 REM ON ERROR GOTO 200 'E' MEGLIO EFFETTUARE LA MESSA A PUNTO 

60 REM 'PRIMA DI ATTIVARE L'INTERCETTAZIONE DI ERRORE 


10 REM PUÒ' SIMULARE UN’ETICHETTA INDIRIZZO 

20 GOTO 120 

120 REM FINE REGOLARE 

13t END 


In alcuni casi è necessario caricare dapprima l’interprete a partire da una 
cassetta, o uscire da un sistema monitor o altro (vedere manuali specifici). 

Una linea di programma, o un comando, è realizzata da una sequenza di 
battute che termina con un ritorno carrello (ENTER/RETURN). Differenze 
tra linee di programma e comando: l’una porta un numero ed è immagazzinata 
in zona programma: l’altro non ha numero ed è eseguito immediatamente 
dopo l’impostazione ENTER/RETURN e non viene memorizzato. 

Una linea di programma può contenere più caratteri rispetto ad una linea di 
schermo (80 per il PET, 255 per il TRS 80 per esempio). Una linea di program¬ 
ma può contenere più istruzioni separate da: (due punti), salvo che in certi 
BASIC limitati. Le linee lunghe rendono i programmi meno chiari (linee 
visualizzate su parecchie linee di schermo), più difficili da mettere a punto, ma 
per contro, più compatti (perchè molte istruzioni hanno in comune il numero 
di linea e il ritorno carrello). 

L’istruzione REM permette di effettuare titoli, note che facilitano la com¬ 
prensione del programma, linee bianche di presentazione. Si ha interesse a 
servirsene per gli altri... e soprattutto per se stessi! Unica contro indicazione: se 
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si ha una limitazione della capacità di memoria. Tutto ciò che segue REM nella 
linea viene ignorato al momento delPesecuzione, ma immagazzinato in zona 
programma. 

Se un programma è un pò lungo, constaterete che si fanno meno errori 
preparando una minuta, la più appropriata possibile e scritta solamente su una 
facciata del foglio. 


10 REM MESSAGGIO DI ERRORE 

20 REM TUTTI I BASIC DANNO MESSAGGI DI ERRORE CON UN NUMERO » SIGLE 
30 REM 0 PIU' 0 MENO CHIARI. ES.JBS-BAD SUBSCRIPT (ERRORE D'INDICE) 


10 REM TRATTAMENTO D'ERRORE DA PROGRAMMA 

20 REM SI PUÒ' SEMPRE EVITARE L'INTERRUZIONE SU ERRORE CON 
30 REM TESTS CHE COMPLICANO E RALLENTANO L'ESECUZIONE. 

40 REM "ON ERROR" PERMETTE DI ELIMINARE QUESTI TEST A PRIORI»INTER- 
50 REM GETTANDO UN ERRORE E TRATTARLO A POSTERIORI. 


80 ON ERROR GOTO 200 


JREM ROUTINE DI TRATTAMENTO IN 200 


120 ON ERROR GOTO 0 JREM DISATTIVA LA ROUTINE (FUNZIONAMENTO NORMALE) 


200 REM ROUTINE D' ERRORE 


210 IF ERL-90 THEN.. 

220 IF ERL-110 THEN.. 
230 IF ERR/2+1-1 THEN.. 
240 IF ERR/2+l=4 THEN.. 


JREM ERL=VARIABILE CHE DA' LA LINEA DOVE SI E' PRODOTTO 
JREM L’ERRORE»QUI SI SOSPETTANO LE LINEE 90 E 110 
JREM ERR-VARIABILE CHE DA’ IL CODICE DI ERRORE 
JREM QUI SI TRATTANO GLI ERRORI 1 E 6 


260 RÉSUMÉ 

261 
262 


JREM CONTINUAZIONE DEL PROGRAMMA PRINC. ALLA 
JREM STESSA LINEA» RÉSUMÉ NEXT -> ALLA SEGUENTE 
JREM RÉSUMÉ 150 -> ALLA LINEA 150 
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Questo sforzo iniziale è praticamente indispensabile se il vostro sistema non 
comprende una stampante per mettere a punto un programma che si è scritto, è 
necessario scoprire gli errori, che sono sempre presenti. 

Alcuni errori, come gli errori di battuta, sono facilmente rilevabili e correg¬ 
gibili. 

Altri errori riguardano la sintassi, le regole non rispettate, l’ausilio dei 
messaggi di errore è sovente sufficiente a scoprirli. 

Ma rimangono alcuni errori più subdoli detti logici che risultano indiretta¬ 
mente dalle parti di programma eseguite prima. 

Risolvere questi errori - qualche volta molto sottili - fa parte del fascino della 
programmazione. È praticamente impossibile riuscirci se non si lavora sulla 
carta, almeno che non si tratti di un programma che occupi, in lunghezza, un 
solo schermo. 

Per le stesse ragioni, occorre riportare accuratamente su questa minuta tutte 
le correzioni effettuate (a meno che naturalmente non possediate una stampan¬ 
te) anche se considerate che il programma è a punto e che il lavoro è terminato. 

Lavorate così anche per le successive modifiche che non mancherete di 
introdurre: per esempio per perfezionare il programma, o per correggere un 
errore ancora più sottile o corrispondente ad un caso non ancora incontrato. 

In mancanza di queste precauzioni si rischia di mettere a dura prova il 
sistema nervoso... È un peccato maltrattare eventualmente una tastiera che 
non ha alcuna colpa, o rinunciare a portare a termine la programmazione di 
una buona idea; ed è molto fastidioso confrontare l’ultima versione immagaz¬ 
zinata in cassetta con una minuta non aggiornata! 

Come conseguenza logica, il programmatore previdente deve premunirsi di 
una buona gomma e di un portamine (mine sottili: da 0,5 a 0,9 mm) in 
mancanza di una stampante. Se si desidera lavorare confortevolmente, occorre 
disporre di un buon blocco, un tavolo libero e ben illuminato. 

Questi consigli possono apparire semplicistici, ma vengono dimenticati 
facilmente soprattutto dai “bricoleurs” invaghiti dai fili elettrici e dagli oscillo¬ 
scopi, nell’eccitazione di affrontare il calcolatore. 

Editing 

Non abbiamo presentato qui le funziondi di editing che permettono di 
modificare una linea di programmazione senza ribatterla per intero. Esse sono 
molto diverse da una macchina all’altra, e si farà riferimento ai manuali 
specifici. 

Esistono due metodi principali: i comandi ed il risultato della modifica si 
vedono sempre sullo schermo, ma in un caso il BASIC lavora direttamente in 
zona programma (sistema EDIT del TRS), nell’altro la modifica si fa sulla 
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linea visualizzata (dunque in zona schermo) e la battuta di RETURN o 
ENTER invia la nuova linea in zona programma (caso del PET). 

Ciascun metodo presenta dei vantaggi e degli inconvenienti. Il secondo 
necessita delle possibilità di movimenti di cursori e di inserimento e soppressio¬ 
ne per mezzo di più sofisticati tasti-tastiera; le modifiche richiedono più 
manipolazioni, ma queste possibilità di inserimento e soppressione sono utiliz¬ 
zabili nell’esecuzione di un programma per esempio per comporre un disegno 
sullo schermo. 

Nel primo metodo i comandi più potenti (si rimpiazzano i tasti con delle 
parole-chiave) facilitano le modifiche, ma non sono utilizzabili che nel sistema 
Edit e i vari movimenti del cursore sono disponibili solo per mezzo di program¬ 
ma (vedi CHRS) e non dalla tastiera in sistema BASIC. 

Altre possibilità di editing, non fornite sulle macchine più comuni, permet¬ 
tono di rinumerare e d’inserire delle parti di programma messe a punto. Nello 
stesso modo una funzione di duplicazione (COPY dalla linea n alla linea p) 
economizza delle battute su sistemi più costosi: molto spesso, ci sono delle 
istruzioni un pò lunghe e molto simili ed è pratico copiarle automaticamente e 
poi inserire qualche modifica. Queste funzioni possono essere realizzate con 
dei programmi ausiliari da scrivere (o comprare) ma non saranno veramente 
pratici se non con un sistema a floppy disk. 


Numerazione delle Linee 

Tutti i programmi in BASIC devono avere le linee numerate. Questo nume¬ 
ro gioca parecchi ruoli. 

La presenza di un numero indica che le istruzioni della linea che è stata 
impostata da tastiera, fanno parte di un programma in corso di scrittura o di 
modifica. Senza questo numero, le istruzioni vengono eseguite immediatamen¬ 
te. 

Quest’ultimo modo di lavorare, chiamato comando diretto, permette di 
utilizzare la macchina come una sofisticata calcolatrice: 

PRINT SQR (2), (10 000 x 12) / 360.5 

Essa permette anche di esaminare o modificare le variabili in un programma 
che si è interrotto per un errore oppure di riprendere l’esecuzione interrotta, 
ciò che facilita molto spesso la messa a punto. 

Il numero di linea serve da indirizzo di riferimento per modificare una linea 
di programma o annullarla e per introdurre delle linee supplementari. E 
necessario dunque che questi numeri siano scelti (ordine crescente) e spaziati 
per combinare possibilità di successive aggiunte. Di solito, si numera inizial¬ 
mente di 10 in 10. 

Se l’interprete BASIC accetta più istruzioni su una linea, non si sarà, 
teoricamente mai limitati da mancanza di spazio, ma è meglio evitare le linee 
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troppo lunghe, poiché una falsa manovra (errore di battuta o di correzione) 
può obbligare a ribattere tutta la linea, con il medesimo rischio di errore. 

La numerazione serve infine da etichetta (indirizzo) per i disinserimenti, vale 
a dire le interruzioni di sequenza durante l’esecuzione del programma (vedi 
GOTO). 

Questa scelta semplificatrice è uno dei pochi punti deboli del BASIC: in altri 
linguaggi, l’etichetta è indipendente dal numero di linea, cifra o meglio nome 
non cifrato, che rende i programmi più facili da documentare (si scrive GOTO 
END al posto di GOTO 910) e più chiari. 

Questa semplificazione rende difficile la rienumerazione automatica delle 
linee, corrente con altri linguaggi, che rende un programma finale più estetico, 
elimina il rischio di non poter più inserire delle linee e soprattutto permette di 
fare coabitare in memoria diversi sottoprogrammi scritti separatamente 

Ciò non è possibile in BASIC se non sono state previste prima zone di 
numeri distinti per ciascun sottoprogramma. 

Alla impostazione iniziale di un grosso programma, certi computer permet¬ 
tono di economizzare la battuta dei numeri di linee, grazie al comando AUTO. 
Dal momento che si è battuta una linea (ENTER o RETURN) il BASIC 
visualizza il numero seguente. 

Si arresta l’istruzione AUTO con un tasto (Break sul TRS) o con un 
comando (MAN sull’apple). Si può riprenderla più volte e facilitare la com¬ 
prensione e la messa a punto, riservando delle zone di numeri alle differenti 
parti del programma e dei sottoprogramma. 


AUTO 

10 REM TRSBO COMANDO CHE PERMETTE LA NUMERAZIONE AUTOMATICA 
20 REM DELLE LINEE. A OGNI FINE LINEA«IL BASIC 
30 REM PRESENTA IL NUMERO SEGUENTE.SI FERMA CON BREAK 
AUTO 20 0r5 

200 REM NUMERA AUTOMATICAMENTE 

205 REM DI 5 IN 5 A PARTIRE DA 200 

210 REM <AUTO 200 FAREBBE DI 10 IN 10> 

AUTO (APPLE) IDEM ECCETTO CHE SI FERMA CON 'MAN' ANZICHÉ' CON BREAK 

10 REM UTILIZZAZIONE DI GRUPPI NUMERICI PER DISTINGUERE 
20 ... iREM ALCUNE FASI DEL PROGRAMMA DAI SOTTOPROGRAMMI 
30 ... 

AUTO 100 

100 * (REM L‘ ASTERISCO SEGNALA CHE E' GIÀ' PRESENTE UNA LINEA 100 

110 ... !REM CHE ANDRA' DISTRUTTA SE SI CONTINUA 

120 ...(END 
AUTO 1000 
1000 ... 

1090 RETURN 


60 


Messa a punto 

Gli anglosassoni hanno un termine figurato per la messa a punto: debug¬ 
ging. Questo stadio è di solito lungo quanto la scrittura del programma. 

È raro che un programma funzioni al primo colpo, ma un programma 
scritto chiaramente, con delle annotazioni, sarà messo a punto più velocemen¬ 
te. Inoltre, è nella messa a punto che i linguaggi interpretati offrono i maggiori 
vantaggi; al limite si può avviare l’esecuzione (RUN) senza rileggere e correg¬ 
gere man mano gli errori semplici del tipo: errore di battuta o di disattenzione, 
che provocano l’arresto con un messaggio. 

Il lavoro serio inizia in seguito: se il funzionamento non è soddisfacente, è 
necessario seguire la traccia del cammino logico percorso dalla macchina e 
verificare che sia conforme a quello che si è scritto nell’organigramma. Per 
questo si dispone, su certi computer, di una istruzioni TRACE (o TRON) che 
visualizza il numero di ciascuna linea eseguita. 

Per non occupare lo schermo, si può inibire questa azione nelle parti del 
programma già a punto. 

Una volta individuato il tracciato, si possono inserire provvisoriamente 
degli STOP così all’arresto si può esaminare e provvedere alla modifica di 
qualsiasi variabile e riprendere l’esecuzione come se non ci fosse stata l’interru¬ 
zione (CONT - Continue) o in un punto qualsiasi (GOTO). È ancora un 
vantaggio degli interpreti e del comando diretto. 

In aggiunta al TRACE, certe macchine hanno una istruzione DSP (Display) 
che visualizza automaticamente le variabili specificate, ogni volta che il pro¬ 
gramma le incontra. 

Si ottiene un risultato equivalente mettendo dei PRINT provvisori nei punti 
chiave. 

Si può facilitare l’eliminazione delle istruzioni provvisorie (TRACE, 
PRINT, STOP) al fine di mettere a punto, dando dei numeri provvisori facili 
da individuare, per esempio: 11, 21, 131 (o 19, 29, 139) dietro le istruzioni 10, 
20, 130. 

Una frequente difficoltà riguarda gli algoritmi ed altri loop ripetuti fino a 
che una condizione sia verificata. L’errore più comune è dimenticare l’inizializ- 
zazione (per esempio accumulatore non rimesso a zero e funzionante al primo 
passaggio poiché RUN rimette le variabili a zero). 

Si hanno anche i valori limite: bisogna posizionare il contatore da 0 a 1 alla 
partenza, fare un test su una disuguaglianza stretta o in senso ampio (I < = N 
oppure J<N + 1...). 

Se non è troppo difficile, concepire un loop in circuito permanente è general¬ 
mente impossibile scrivere direttamente la parte di programma corrispondente 
ai valori iniziali: è meglio scrivere su una minuta i valori assunti dalle variabili 
su i primi giri (e gli ultimi) e di modificare a tentoni il programma. 


61 


Più generalmente, un metodo empirico consiste nel fare in sequenza tutti i 
calcoli a mano fino a che si veda apparire un carattere ripetitivo, ciò permette 
di liberare un algoritmo e di concepire un organigramma dettagliato. 


10 REM TRACE/NOTRACE < OPPURE TRON/TROFF) 

20 REM USATO COME COMANDO,SI APPLICA A TUTTO IL PROGRAMMA 
30 REM USATO NEL PROGRAMMA, SI APPLICA AD UNA PARTE 

40 IF t>100 THEN 350 

41 TRACE 

50 ON K GOTO 60,80,90 
60 K-21GOTO 50 

so k-i:goto so 

90 K=31. 

RUN 

50 60 50 00 50 60 50 80 50 60 50 80 50 60 50 80 . 


51 PRINT•K—“ » K :rem istruzione provvisoria 

RUN 

50 60 50 80 50 60 .IL PRINT NON E' STATO MESSO AL GIUSTO POSTO 


10 REM DSP/NODSP (APPLE) VISUALIZZAZIONE 


20 REM VISUALIZZA LE VARIABILI INDICATE OGNI VOLTA CHE 
30 REM SONO MODIFICATE. 

40 REM EVITA MOLTI PRINT PROVVISORI MA, COME TRACE, 

50 REM TENDE A RIEMPIRE LO SCHERMO ED E' NECESSARIO INSERIRE 

60 REM NUMEROSI NODSP, POI ANCORA DSP 

71 DSP 1REM INTERESSA TUTTE LE VARIABILI 

81 NODSP 

91 DSP K,Al 

100 K-IiGOTO 120 

110 K=0 


:rem esecuzione dall’inizio con cancellazione 
irem • dalla linea 150 

•■REM • DALLA LINEA 150 SENZA * 


(REM RIPRENDE L' esecuzione fermata DA STOP O BREAK 
(REM NON FUNZIONA DOPO END 


RUN .. 
RUN 150 
GOTO 150 


CONT 


Esecuzione 


L’esecuzione di un programma si avvia con il comando RUN. 

In generale questo comando inizializza a zero tutte le variabili del program¬ 
ma. 

Se si utilizza l’istruzione GOTO come comando diretto (vale a dire senza 
numero di linea e dunque eseguito subito) si avvia l’esecuzione al punto 
indicato, senza rimessa a zero delle variabili. 

Se il programma non si arresta da solo, si può fermare il BASIC con il tasto 
BREAK o STOP che viene esaminato dall’interprete ad ogni esecuzione di 
istruzione. Se il programma ha richiamato un sottoprogramma in assembler, è 
possibile arrestare l’assembler solo con il tasto RESET, quando esiste, altri¬ 
menti la sola possibilità è quella di spegnere e riaccendere il sistema. 

L’istruzione CONT permette di riprendere l’esecuzione di un programma 
opo un arresto provocato da uno STOP. 

Questa istruzione è particolarmente utile durante la messa a punto. 
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APPENDICE 1 


CODICE ASCII E CARATTERI SPECIALI 


È un codice internazionale utilizzato dalla maggior parte dei computer (con 
un’eccezione l’IBM) per rappresentare delle informazioni alfanumeriche 
(cifre-lettere-segni) nella memoria e nei registri dei calcolatori. Il format- 
carattere oppure stringhe di caratteri utilizza il codice ASCII (American 
Standard Code For Information Interchange) in tutte le piccole macchine. 

Il codice normalizzato della ISO (International Standard Organisation) con 
delle piccole varianti per ogni paese, è definito su 7 bits 128 combinazioni 
possibili. Le macchine comuni hanno una struttura a byte (8 bits) e resta una 
ambiguità sull’ottavo bit: a seconda delle macchine, esso è a 1 oppure a 0.1 7 
bits sono in generale inquadrati a destra e la conseguenza del passaggio a 1 dei 
bit di sinistra è di aggiungere 128 al valore decimale corrispondente (codici da 
128 a 255 al posto dei codici da 0 a 127). Lo si verifica grazie all’istruzione 
BASIC PRINT ASC (“A”) che darà sia 65, sia 193 (= 65 + 128). 

Per comprendere bene la nozione del Codice ASCII e l’azione di certi 
caratteri speciali, bisogna distinguere tre elementi del mini-computer; la visua¬ 
lizzazione a livello del generatore di caratteri, che in funzione di un byte (o più 
sovente di 7 bits sulle macchine a basso costo) genera una immagine; la 
produzione di un byte a partire dalla battuta di un tasto (fatto per mezzo del 
BASIC sulle macchine a buon mercato, seguito da un’azione); ed infine 
l’azione attivata con l’istruzione PRINT applicata ad un carattere. Per il codice 
della lettera A, l’immagine è evidente, la tastiera fabbrica lo stesso codice e 
PRINT visualizza l’immagine di A. I 3 concetti divergono quando si tratta di 
caratteri speciali: il tasto di cancellazione genera un codice, questo codice può 
avere una immagine a partire dal generatore di caratteri; PRINT applicato a 
questo codice cancella lo schermo, vale a dire, lo riempie del carattere bianco 
(vuoto) (codice 32). 

Stessa difficoltà con i movimenti cursori e certi caratteri grafici (PET). Si 
esplorerà il generatore di caratteri con POKE (sullo schermo), la tastiera con 
PRINT ASC (INKE Y$) oppure GET C$: PRINT ASC (C$) e l’azione PRINT 
con PRINT CHR$ (...). 
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Il codice ASCII riserva certe combinazioni a due funzioni speciali, per 
esempio 13 per il ritorno carrello, 10 per cursore in basso (line feed) ma queste 
convenzioni non sono in generale rispettate sulle piccole macchine comuni 
(sono rispettati solo i codici strettamente alfanumerici). 

Questi caratteri sono TC (trasmissione), BEL (campana), BS (cursore a 
sinistra), HT e VT (tabulazione orizzontale e verticale), FF (form feed), DC 
(controllo periferiche), ESC (ESCAPE - annuncia un carattere in arrivo utiliz¬ 
zato per una funzione speciale), IS (separatore d’informazione per strutturare 
un archivio). 

I tasti SHIFT e CONTROL non corrispondono ad un codice, permettono 
solamente di fabbricare 128 o 256 codici a partire da 64 tasti, posizionando a 1 
il settimo e l’ottavo bit (in più dei 6 bits per 64 tasti). Si utilizzano abbassandoli 
simultaneamente con uno dei 64 altri (64 è un numero teorico: si può averne 
meno, o più con dei tasti speciali di funzione, come break o clear, secondo la 
costruzione della tastiera). 

I caratteri accentati possono essere ottenuti con una stampante: un backspa- 
ce seguito da virgola (44) farà una cediglia, seguito da apostrofo (39) per 
accento acuto, da virgolette (34) per dieresi, da freccia in alto (94) per accento 
circonflesso. 

Per effettuare dei trattamenti veritieri di tasti, è necessario uno schermo 
munito di un generatore di caratteri che disponga di lettere accentate (nessuna 
sovraimpressione è possibile come sulla stampante); la stampante avrà rara¬ 
mente lo stesso esatto set di caratteri (salvo forse una stampante a matrice) ed il 
programma di stampa dovrà assicurare la corrispondenza tra i caratteri diffe¬ 
renti. 


Codice Internazionale ASCII (norme ISO) 

— La tavola dà i valori decimali (utilizzabili con CHR$ ASC POKE) e 
esadecimali leggendo la colonna di sinistra e la linea dall’alto (ES: “OD” 
per ritorno carrello - CR) 

— Ci sono due norme francesi: 

senza minuscole: identico all’internazionale salvo | al posto di | in 124 e — 
al posto di - (soprasegnato) in 126, 

con minuscole: 35 64 91 92 93 123 124 125 126 

£ à ° 9 § é ù è 

al posto di#@[\]{/} 
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Il codice ASCII è a 7 bits (OH- 127); certe macchine (APPLE) mettono a I 
l’ottavo bit del byte, ciò che dà i valori da 128 a 255 (esempio A = 128 + 
65 = 193). 
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CARATTERI SPECIALI - TASTI DI COMANDO 


Azione su PRINT CHR$ 
e tastiera 

TRS 

codice tasto 

PET 

codice tasto 

APPLE 
codice 1 2 3 " tasto 


Movimenti cursore 





a sinistra 

24 

157 - 

esc. K 


a destra 

25 

29 - 

esc. J 


in alto 

27 

145 1 

esc. 1 


in basso 

26 

17 1 

esc. M 


All'inizio della linea 

29 




a capo 

10,13 1 




in alto a sinistra 

28 

19 Home 



tabulazione 

- 




Cancellare 





un carattere a sinistra 

8 - 


8- 


inizio della linea 

S- 


cX 


fine linea 

30 


esc,E 


il rimanente della pagina 

31 


esc.F 


tutta la pagina 

Clear 

147 CLR 

esc.sP 


Delimitatore 

13 Enter 

13 Return 

141 Return 


Arresto 





basic 

Break 

Stop 

e C 


sospensione 

s@ 




rallentare, lista 





Esiting 

(Edit) (2) 




soppressione 


20 Del 



inserimento 


148 Inst 



Effetti speciali 





doppia larghezza car. 

23 S- 




ritorno misura Norm. 

(3) Clear 




caratter. Grafici 

129E191 

da 161 a 223 



cloche 



199 cG 


inversione video 


18 RVS 



ritorno video norm. 


146 OFF 



cursore visibile 

14 




cursore invisibile 

15 





S X = shift + X 


cX= control+X esc,X=tasto escape, dopo tasto X 


(1) Caratteri speciali impediti da PRINT- l’8° bit è a 1 (A....Z = 193....218) (in Apple Integer 
BASIC) 

(2) Editing per mezzo comandi in sistema EDIT 

(3) Possibile senza annullamento per mezzo OUT 255,0 
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APPENDICE 2 


CALCOLO BINARIO E ESADECIMALE 


I numeri binari e la loro rappresentazione in ottale (una cifra ottale da 0 a 7 
per rappresentare 3 bits) o meglio esadecimale (una cifra da 0 a F per rappre¬ 
sentare 4 bits) giocano un ruolo importante in linguaggio macchina, ma anche 
in BASIC quando si vogliono utilizzare delle funzioni come PEEK o POKE o 
comprendere come l’informazione è rappresentata nella memoria e nei registri 
del calcolatore. 

Per contare occorre una base di numerazione (insieme di segni che permetto¬ 
no di scrivere un numero). La base decimale sulla quale apprendiamo a contare 
dall’infanzia, non è che una base tra altre, che l’uomo ha privilegiato senza 
dubbio, perchè ha 10 dita: si conta quindi “naturalmente” con l’aiuto di dieci 
simboli (0,1...9) con i quali formiamo i numeri. In binariosi hanno due simboli 
(per comodità 0 e 1, si potrebbe prendere "ciottolo nero” e “ciottolo bianco”). 
In esadecimale si hanno 16 simboli (per comodità da 0 a 9 più A,B,C,D,E,F). 
Con n cifre decimali, si conta da 0 a 10" -1 (esempio: 999 per 3 cifre). Lo stesso 
in binario con n bit ( 1 bit, binary digit, designa una cifra binario), si conta da 0 
a 2"- 1, cioè 0 a 15 con 4 bit, da 0 a 255 con 8, da 0 a 65535 con 16 bits (2 byte). 

Queste cifre sono importanti perchè i calcolatori elettronici utilizzano sem¬ 
pre il binario: non si è potuto realizzare Fino ad oggi dei sistemi a più stati così 
rapidi e poco ingombranti se non i circuiti elettronici a due stati (le prestazioni 
sono ora vicine ai limiti Fisici della materia e delle onde elettromagnetiche). Se 
si avessero degli equivalenti a 10 posizioni (macchine elettroniche) aventi le 
prestazioni dei circuiti a due stati, nessuno utilizzerebbe più il binario. 

Poiché la memoria è organizzata in byte o gruppo di 8 bit (6 permettono solo 
64 combinazioni, 7 non permetterebbero di dividere in due, ciò sarebbe 
fastidioso in parecchi casi), si arriva naturalmente alla capacità di indirizza¬ 
mento della memoria di 64 Kbyte max (kilo designa per facilità un multiplo di 
1024, infatti 64k=65536): gli indirizzi occuperanno 2 byte, un carattere su 1 
byte con un’alfabeto che può disporre di 256 caratteri. 

Ciò necessità 16 linee di indirizzo e 8 linee di dati a livello hardware, essendo 
1 bit rappresentato da una tensione di 0 oppure 5 volts. 

Si può utilizzare una base di tipo misto: questo capita sovente in BASIC per 
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leggere o scrivere un indirizzo con PEEK e POKE: un byte rappresenta una 
cifra in base 256 e si ha, come con qualsiasi base, 

numero = cifra della unità + base X cifra di dozzine + ecc. 

cioè: indirizzo = byte meno significativo + 256 X byte più significativo, la 
“cifra” in base 256 è infatti manipolata dal suo valore decimale ottenuto con 
PEEK e POKE. 


APPENDICE 3 


ESEMPI DI PROGRAMMA 


Esempio 1 - Orologio del P.E.T. (P.E.T.) 

Esempio 2 - Gestione di un piccolo archivio (T.R.S. 80) 
Esempio 3 - Gioco di YAM (P.E.T. e T.R.S.) (Pokerissimo) 
Esempio 4 - Visualizzazione in grandi caratteri (Apple II) 
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ES. 1 


9 REM xxxxxxxxxxxxxxxxxxxxxxxxxx 

10 REM * ES. 1 OROLOGIO DEL PET x 

11 REM xxxxxxxxxxxxxxxxxxxxxxxxxx 

12 REM 

13 REM 
1* REM 

20 GOSUE: 20 00 JREM COSTANTI 

30 GOSUB 300 0 JREM MODO D* USO 

*0 GOSUE: *00 0 JREM REGOLAZIONE ORA 

*5 IF MDE$-"O * THEN MDE$= • N " J GOTO 30 

50 GOSUB 5000 JREM AVANTI 

55 IF ST»«"S a GOTO 70 

60 GOSUB 6000 JREM CARILLON 

65 GOTO 50 

70 GOSUB 7000 JREM ARRESTO 

75 IF ST*=*P- GOTO 50 

76 GOTO 99 

80 REM TEMPORIZZAZIONE 

81 GOSUB 8000JRETURN 

90 REM RISPOSTA SI O NO 

91 GOSUB 9000JRETURN 
99 END 


2000 REM COSTANTI 

2010 READ LH*fLM*fLS* 

2020 DATA " ORE "f• MINUTI ■r• SECONDI • 
2100 REM TABELLA REDATTA DELLE ORE 
2110 DIM Z*(23) 

2120 FOR K=0 TO 23JREAD ZS(K)JNEXT 
2130 DATA ZEROfUNAfDUE rTRE fQUATTROfCINQUE 


2190 DATA VENTITRÉ 
2900 POKE 59*68f12 
2910 POKE 59*09f60 

2999 RETURN 

3000 REM MODO D' USO 

3010 PRINT-(CLR) -*444444 (RVS) OROLOGIO DEL PET < OFF ) ■ 

3020 PRINT J PRINT J PRINT • VI CHIEDERÒ* L* ORA" 

3030 PRINTJPRINT"(RVS)ATTENZIONE(OFF) VOI MI DARETE UN NUMERO" 

30*0 PRINTJPRINT-DI SEI CIFREf NELLA FORMA HHMMSS" 

3050 PRINTJPRINT-NE* VIRGOLAf NE* PUNTO FRA I GRUPPI* 

3060 PRINTJPRINT-DI DUE CIFRE* 

3070 PRINTJPRINT* PER UNA (RVS)REGOLAZIONE DELL* ORA(OFF) PRECISA* 
3080 PRINTJPRINT-INDICATEMI IL PROSSIMO MINUTO E" 

3090 PRINTJPRINT-DATEMI IL VIA AL PASSAGGIO" 

3100 PRINTJPRINT- PER (RVS)FERMARMI(OFF) BATTETE (RVS)S(OFF)- 
3110 PRINTJPRINT-NON IMPORTA QUANDO DURANTE IL PROGRAMMA* 

3120 PRINTJPRINT"*=x=x~ BATTETE (RVS)T(OFF) PER LEGGERE IL SEGUITO =x=x 
3200 GET CS 

3210 IF C*=-T" GOTO 3998 
3220 GOTO 3200 

3998 PRINT*(CLR)* 

3999 RETURN 

*000 REM REGOLAZIONE DELL* ORA 

*010 PRINT■ • . • »»MI METTERÒ* * IN MARCIA" 

*020 PRINT-NELL * ISTANTE IN CUI BATTERETE RETURN’ 

*030 PRINTJPRINT"DOPO AVER RISPOSTO O ALLA* 

* 0 * 0 PRINT J PRINT■DOMANDA ^VA BENE _? - 
*050 PRINTJPRINTJPRINT- SE RISPONDETE N* 

*060 PRINTJPRINT-RICOMINCEREMO LA REGOLAZIONE DELL'ORA- 

*070 PRINTJPRINT 

*080 INPUT-CHE ORA E*?*?MH* 

*090 IF VAL(MH*>=0 GOTO *500 
*100 IF VAL(MH*>>2*0000 GOTO *500 
*110 H* = LEFT*(MH*f2) 

*120 M* “ MID*<MH*f3f2> 

*130 S* » RIGHT*(MH*f2) 



4140 E* « H*+LH*+M*+LM*+S*+LS* 

4150 PRINTSPRINT"HO LETTO : -#E* 

4160 PRINT*D' ACCORDO"SSGOSUB 90 
4170 TE R*=" N * GOTO 4070 
4180 TIME* « MH* 

4190 PRINT-<CLR>" 

4200 GOTO 4999 

4500 PRINTSPRINT* DI SIETE SBAGLIATI» DOLETE* 

4510 PRINTSPRINT'RILEGGERE LE ISTRUZIONI D‘ USO"»SGOSUB 90 
4520 IF R*=-N- GOTO 4070 
4530 MDE* = -0- 

4999 RETURN 

5000 REM CONTEGGIO 

5010 H* = LEFT*(TIME*»2> 

5020 M* « MID*(TIME* * 3 » 2 > 

5030 S* a RIGHI*CTIME*»2> 

5040 GET ST* 

5050 IF ST*~*S" GOTO 5999 

50 60 PRINT" <CLR) **-**->■>-»-»* ->444444444-4*44444 •»H*SLH*»M*»LM*;S*»LS* 
5999 RETURN 


6000 REM CARILLON 

6010 MS* = RIGHT*< TIME* » 4) 

6020 IF DAL.<MS*)O0 GOTO 6999 
6030 H « DAL<LEFT*<TIME*»2>> 


6040 PRINT*<CLR>* 

6050 FOR 1=1 TO 100 
6060 PRINT* <RDS) (OFF) 
6070 NEXT I 
6080 GOSUB 80 
6090 IF H<2 GOTO 6998 
6100 FOR J=2 TO H 
6110 POKE 59409»52 
6120 GOSUB 80 
6130 POKE 59409»60 
6140 GOSUB 80 
6150 NEXT J 

6998 PRINT*<CLR>" 

6999 RETURN 


* »Z*(H)»LH*J 
SREM TEMPORIZZAZIONE 


SREM SPEGNE LO SCHERMO 
SREM TEMPORIZZAZIONE 
SREM RIACCENDE LO SCHERMO 


7000 REM ARRESTO 

7010 PRINT * < CLR >44444444444444 * 

7020 POKE 59468»14 SKLM MINUSCOLE 

7030 PRINT * ADETE INTERROTTO IL FUNZIONAMENTO" 

7040 PRINT *TIJTTADIA POTETE RIMETTERMI IN' 

7050 PRINT-MOTO IMMEDIATAMENTE SENZA DOVER" 

7060 PRINT- RICOMINCIARE LA REGOLAZIONE DELL' ORA" 

7070 PRINT * SI RICOMINCIA-»SGOSUB 90 
7080 IF R*—*S* THEN ST*=*P*SGOTO 7900 
7090 PRINT* (CLP>4444444444- 

710 0 PRINT"AKRIDfcULKCI E GRAZIE. A DOSTRA DISPOSIZIONE * 
7110 PRINT■PER FARE ... CIO' CHE DORRETE»* 

7120 PRINT"QUANDO DORRETE» COME DORRETE * 

7130 GOSUB 80 SGOSUB 80 SREM TEMPORIZZAZIONE 

790 0 POKE 59468»12 S REM MAIUSCOLE 

7910 PRINT-<CLR>" 

7999 RETURN 


8000 REM TEMPORIZZAZIONE 

810 0 FOR T=1 TO 1500 SSNEXT T 

8999 RETURN 

9000 REM RISPOSTA SI O NO 

9010 INPUT K* 

9020 R*=LEFT*(R*ri> 

9030 IF R*=-S- OR R*®"N" THEN 9999 

9040 PRINT •( RDS > BATTERE (OFF) S (RDS) PER SI E (OFF) N. <RDS> PER NO" 
9050 GOTO 9010 
9999 RETURN 
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ES. 2 

1 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SCHEDARIO 

2 REM x ES. 2 GESTIONE DI UN PICCOLO SCHEDARIO x CHE TIENE 

3 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx IN MEMORIA 

5 REM 

LO CLEAR 2000 SREM RISERVA 2000 BYTES PER LE STRINGHE (PRIMA DI DEF) 

20 DEFINT I-NSDEFSTR ArZ 5REM INTERI E STRINGHE (DEF E* AZZERATO CON CLEAR) 

30 Z0 « CHR4(2S)+CHR*<30> :REM CURSORE IN ALTO-SINISTRA E RIGA CANCELLATA 

35 REM LA LINEA IN ALTO SERVE AI MESSAGGI E AGLI INPUT 
*0 ZI « Z0+-999 « FINE/NUMERO/RETURN SOLTANTO=SEGUENTE" 

50 Z2 - Z04-"RETURN SOLTANTO-NF.SSIJNA MODIFICA/NUOVO VALORE" 

60 Z3 a Z04-•PREPARATE LA CASSETTA-BATTERE UN TASTO PER METTERE IN MOTO" 

70 DIM A:l(50) f A2(50) »A3(50> SREM MAX. 50 ARTICOLI DI 3 SOTTOPARTI 

75 REM DA SISTEMARE SECONDO I CASI 


80 REM INIZIO 

90 CL.SSL=1023SD*^"0" SREM PRINT01O23 FARA* SCROLLARE LO SCHERMO 
95 REM FRINÌ Z05... SCRIVERÀ’ IN ALTOO 

100 PRINT ZO»"SCHEDARIO ESISTENTE O NUOVO "5 SINPUT Z 

110 IF Z~"N"THEN N^O SPRINT ZOJ’NOME DEL NUOVO SCHEDARIO" t SINPUT F4SG0T0 600 
120 IF Z : “"E" THEN ISO 

130 PRINT 70J"RISPONDERE E O N"SFOR T-0 TO 500SNEXTSGOTO 100 

140 REM CARICAMENTO DELLO SCHEDARIO 

150 PRINT Z3»"LETTURA* 

160 IF INKEY4-"" THEN 160 SREM LOOP DI ATTESA BATTUTA 

170 INPUT*—1 rN?F1»*D4 SREM INIZIO SCHEDARIO 

ISO PRINTOLt"SCHEDARIO « "SF*?" /DATA = "JD %i m N. ART = "JN+1 
190 FOR 1=0 TO NSPRINT Z0 i TSINPUT*-1 »Al(I)*A2(I)»A3(I)SNEXT 
195 REM IL PRINT PERMETTE DI SEGUIRE LO SVOLGIMENTO 


200 REM PARTE COMUNE 

210 REM 

230 PRINT 70 ;"CONSULTAZIONE, MODIFICA, AGGIUNTE, FINE (A-C-F-M) ■:input z 

240 IF Z="C" THEN 300 

230 IF Z~"M" THEN TUO 

260 IF Z="A" THEN 600 

ZZO IF Z-*F" THEN 800 

280 PRINT Z0!"BATTERE A,C,F,M":FOR I 0 TO 500INEXTIGOTD Z30 

300 REM CONSULTAZIONE 

310 K =. o :rem K-NUMERO ARTICOLO 

320 PRINT ZitiINPUT KIIF K N THFN 230 IREM N= NUMERO DI ARTICO!I 

330 PRINT0L, K, Al < K > , A2(K) , A3(K ) ! 

350 K K+1IGOTO 320 

360 REM K=K+1 PERMETTE DI VEDERE L'ARTICOLO SEGUENTE BATTENDO SOLO RETURN 

400 REM AGGIORNAMENTO 

'(OH REM 

'0(1 REM SI OPERA PER NUMERO DI ARTICOLO (DA 0 A N> 

'US REM NEL CASO SI TROVERÀ' QUESTO NUMERO CON CONSULTAZIONI SUCCESSIVE 
'120 PRINT Zi; IINPUT KIIF K N THEN 230 
'ISO PRINT0L,K, A1 (K ) , A2<K) . A3<K> i 

'OS REM VISUALIZZA IL VECCHIO DATO PRIMA DELL' AGGIORNAMENTO 
«0 A=A1(K>IPRINT Z2!A! 1 INPUT A! AIUOLA 
460 A=A2<K)SPRINT ZZIAIIINPUT AIA2(K> A 
4/0 A-A3<K)IPRINT Z2IA!IINPUT A!A3(K)=A 

475 REM OGNI PARTE DEL VECCHIO ARTICOLO E' VISUALIZZATO; SI INTRODUCE 

476 REM IL NUOVO VALORE O SOLO RETURN SE NON E' CAMBIATO 
480 PRINTBL . K , A1 < K > , A2 ( K > , A3 < K > ; 

485 REM E' MOSTRATO IL NUOVO ARTICOLO 
490 K-K+l IGOTO 420 

493 REM BATTENDO RETURN SOLTANTO SI AGGIORNA L' ARTICOLO SEGUENTE 
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AGGIUNTE 


ES. 2 


600 REM AGGIUNTE 

605 REM 

6J0 REM SI EFFETTUA CON INSERZIONE RISPETTANDO L’ORDINE DELLO SCHEDARIO 
615 REM CHE RESTA ORDINATO IN PERMANENZA 

617 REM PERMETTE UGUALMENTE LA CREAZIONE < INGRESSO IN 600 CON N~0> 

620 PRINT ZO#"Z=ARRESTO/ NOME DA INSERIRE ■ J I INPUT A 

630 REM E * STATO SCELTO QUI UN ORDINAMENTO CON CONFRONTO DI PARTE Al—NOME 
6-90 IF A= *Z" THEN 200 


6^5 K-N 

650 IF A<=Al<K) THEN K-K-lIGOTO 650 


655 REM RICERCA PER NOMI DECRESCENTI TL PRIMO <= A 
660 K-K+l :REM POSTO DEL NOME DA INSFRIRF 

670 IF A~A1<K) THEN 760 JREM CASO DI OMONIMIA 

6B0 IF K>N THEN 720 :REM IN TESTA ALLA PILA? SALTA LO SPOSTAMENTO 

690 FOR I=N TO K STEP -1 JREM SPOSTA IN GIU* TUTTI I SEGUENTI 

700 A1(I+1)-A1<I):A2(I+1)=A2(I) JA3<I+1 >«A3(I) 

710 NEXT 

720 N=N+1 :REM AGGIORNA IL NUMERO DI ARTICOLI 

730 Al(K>«AJPRINT Z0 ? *INTRODUCETE GLI ALTRI DATI"» 

735 INPUT A2(K > ?A3(K > 

7'40 PRINTPL ?K»A1<K)? A2 < K > * A3 ( K ) JREM VISUALIZZA IL NUOVO ARTICOLO 
750 GOTO 620 

760 REM OMONIMIA 

770 FRINÌ ZO»"ESISTE GIA'-JJFOR 1-0 TO 500JNEXTJGOTO 200 

780 REM E' STATO SCELTO DI RIFIUTARE GLI OMONIMI. (LO STESSO NOME 

785 REM SEGUITO DA UN BLANK NON E’ OMONIMO) 


800 REM FINE 

810 REM 

820 FRINÌ e L?F+? "CONTIENE -?*N+1?" ARTICOLI* 

830 PRINT ZO»"0=RITORNO ALL' INDIETRO/INTRODUCETE LA DATA DI AGGIORNAMENTO■ 
8*10 INPUT AJIF ACD* THEN 200 

850 REM VENGONO RIFIUTATE LE DATE PRECEDENTI QUELLA DI PARTENZA 
860 REM 

870 PRINT Z3? JREM MESSAGGIO DI PREPARAZIONE 

880 IF INKEY*=-“ THEN 880J JREM ATTENDE UNA BATTUTA 

890 PRINT*-1?N?F*?A JREM SCRIVE SU CASSETTA 

90 0 FOR I : —0 TO NJPRINT*~1?A1<I)?A2<I)?A3(I> JPRINT Z0 SI*'. NEXT 

910 PRINT Z0?"TERMINE- 

920 END 


REM PROGRAMMA PER TRS 

SONO POSSIBILI NUMEROSE VARIANTI. SI ADATTERÀ’ FACILMENTE 
LA STRUTTURA DELLO SCHEDARIO. SU APPLE (INTECER) OCCORRERÀ' CHE I 
SOTTO-ARTICOLI SIANO DI LUNGHEZZA COSTANTE. PER GESTIRE LA LINEA DI 
SERVIZIO VI E* SEMPRE UN CAR. "HOME’. PER SQSTITUIFvE 'CANCELLA FINE- 
-LINEA CHR*<30>- SI USERÀ’ CALL-868. 

GLI INKEY* NON SONO INDISPENSABILI (=INPUT).SI SOSTITUIRANNO 
I PRINT6 CON VTAB E HTAB 
1000 REM ES. DI VVARIANTI 

AGGIUNTA DI SALTI AL PROGRAMMA PRINCIPALE ES.J IF Z= - E' THEN 1000 
ARTICOLAZIONE DIFFERENTE (FINE - INIZIO) C 1OOO^CAPITOLO DI EDITING 

CONSULTAZIONE SU NOME 

320 PRINT Z0 ? - NOME O NUMERO■?JINPUT A JREM NUMERO 0 INACCESSIBILE 

321 K = VAL(A)JIF K>N THEN 320 

322 IF K—0 THEN JREM A=ALFABETICO 

323 PRINT0 L?K?A1(K>?A2 < K > ? A3(K > » J GOTO 320 
32^F0R K=0 TO NJIF A~A1<K) THEN 323 

325 NEXT 

326 PRINT Z0?-SCONOSCIUTO" JFOR J==0 TO 500 JNEXT JGOTO 320 
ECC.... 
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1 REM ******1************** 

2 REM * GIOCO DEL YAM * 

3 REh )********************* 

PROGRAMMA PER PET E TRS80. STA IN 4 KBYTES SE SI ELIMINA 
IL MODO D' USO» i-IMITA IL NUMERO DEI GIOCATORI U E II DIALOGO 
INIZIALE AL MINIMO. 

UN RIASSUNTO DEL GIOCO SI TROVA NELLE ISTRUZIONI D' USO. 

SI GIOCA CON NUMEROSE VARIANTI (TABELLE DIVERSE»ALTRE COMBINAZIONI) 
CHE SI INTRODURRANNO FACILMENTE 


4 CLEAR 22QJRAND0M JREM TRS (ALTRIMENTI ERR-QUT OF STRINO SPACE/ 

5 DEFINT A-Z :REM TRS GUADAGNO SPAZIO E VELOCITA 1 

6 REM SALVO DEFINIZIONE ULTERIORE OGNI VARIABILE SARA 1 INTERA 

10 DIM N(4)»NG(4) ;REM 5 DADI (DA 0 A 4) 

15 DIM N*(4)rT(4rl2)rB(12>$REM 5 NOMI»12 COMBINAZIONI <0=PUNTEGGIO> 

20 DATA 1»2»3»4»5»6»20»30»40»50»1»1 :REM TABELLA 

22 REM DA 1 A 6» FULL» POKER» COLORE».POKERISSIMO (YAM>»SCALA MINIMA E MASSIMA 
25 FOR I==U TO 12 JREAD B(I> .NEXT 

29 REM DIALOGO INIZIALE 

30 CLSJPRINT'QUANTI GIOCATORI " IREM TRS 

30 PRINT*(CLR)QUANTI GIOCATORI ■ JREh PET 

40 GOSUB iooo:ng=r jrem NG * NUMERO GIOCATORI 

50 IF NG<6 THEN 80 

60 PRINT*SPIACENTE» SONO PROGRAMMATO PER 5 GIOCATORI AL MASSIMO" 

70 GOTO 30 

80 N = 0 JREM N= NUMERO DEL GIOCATORE DI TURNO 

90 FOR 1=0 TO NJ-1 

100 PfJINT* NOME DEL GIOCATORE N. * JI+l» JINPUT N*(I)JNEXT 
110 PRINT'VOLETE LE ISTRUZIONI D’USO ?•» 

120 GOSUB 1000 JREM SUB 1000 PONE LE DOMANDE 

130 IF LEFT*(R*»1>«"S # THEN GOSUB 2000JREM MODO D* USO 
140 CLS JREM TRSX 

140 PRINT-CLR" JREM PET X 

150 DEFSTR HJH=CHR*(28)+CHR*(30) ’TRS HOME E CANCELLAZIONE FINE LINEA 

155 H3=CHR*(2ó)JH3=H3+H3+H3 JREM TRS 3 VOLTE CURSORE IN BASSO 

156 REM SU PET I MOVIMENTI CURSORE SONO ACCESSIBILX^DIRETTAMENTE 

160 GOSUB 3000 JREM COSTRUZIONE GRAFICA DEI DADI 

200 REM GIOCO DA 1 A 3 TIRI (PER 1 GIOCATORE) 

210 PRINT*(HOME)■TA6<39) JREM PET (CANCELLA LINEA IN ALTO) 

215 PRINT*(HOME)TOCCA GIOCARE A ->N*<N) JREM PET 
210 PRINT H»-TOCCA GIOCARE A "JN*(N> JREM TRS 
220 GOSUB 10 00 JREM ENTER (TRS) O NUMERO+RETIJRN (PET) 

240 J=0JH1=R JREM (PET) HI“NUMERO CASUALE 

240 J“0 JREM TRS J CONTA I 3 TIRI 

250 FOR 1=0 TO 4JIF NG(I)=0 THEN K=0iGOSUB 4050 
255 REM CANCELLA I DADI DA GIOCARE (NG=0 NON CONTROLLATO) 

260 NEXT I 

270 GOSUB 5200 JREM INTERVALLO 

280 FOR 1=0 TO 4 JREM TIRA E VISUALIZZA I DADI DA GIOCARE 

290 IF NG(I)=0 THEN K=RND(6)JN(I)=KJGOSUB 4000 JREM TRS 
290 IF NG(I)»0 THEN K=1+RND(H1)*5JN(I)=KJG0SUB 4000 JREM PET 
300 NEXT I 

310 GOSUB 5200 JREM RITARDO 

320 J=J+1JIF J=3 THEN 600 JREM FINE DEI 3 TIRI 

330 REM RIMESSA IN GIOCO E SCELTA DEI DADI 

340 PRINT-(HOME)"TAB<39) JREM VEDI 210 

345 PRINT"(HOME)G GIOCA - 1/6 CONTROLLA - 5 NUOVA SCELTA - T CONTROLLA TUTTO" 
340 PRINT H»-G GIOCA - 1/6 CONTROLLA - S NUOVA SCELTA - T CONTROLLA TUTTO* 
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350 R5-lNh.EYS : IF R*= “ ■ THEN 350 iFiEK TRS 


350 GEI R+ilF »+=•* THEN 350 
3Ó0 IF R*="J* THEN 250 
370 IF R+="T" THEN 600 
380 IF R*= ■ 5 " THEN GOSUB -310 
390 R»VAL(R*)ÌIF R>=1 AND R<> 
900 GOTO 390 


:rem pet 

iREh uANCIA I DADI DA GIOCARE 
iREM FINE DEI GANCI 

:reh rimette in gioco tutti i dadi 

THEN 980 (REM METTE DA PARTE IL DADO 


9L0 REM RIMESSA IN GIOCO DEI DADI MESSI DA PARTE 
920 FOR 1=0 TO 9 

930 IF NG(I)=0 THEN 960 iREM SCARTA I DADI GIÀ' IN GIOCO 

990 NG(I)=0iK=N(I)!GOSUB 9050ÌPRINT BiiD*(0«i IREM PET 
995 REM B+-OADO BIANCO D*(0> ANNULLA IL DADO CONTROLLATO 
960 NEXT I 
970 RETURN 


980 FOR 1=0 TO 9 iREM METTE IL DADO INDICATO IN ZONA RISERVATA 

990 IF NGdi'OO THEN 590 !REMIGNQRA I DADI GIÀ' CONTROLLATI 

500 IF RON(I) THEN 590 

310 NG(1>=1 iREM TROVA IL DADO DA CONTROLLARE 

520 K--0 i GOSUB 9050 iREM CANCELLA IL DADO IN POSIZIONE DI GIOCO 

530 PRINT B* « DF(N <I)«« iREM LO VISUALIZZA IN POSIZIONE CONTROLLATA 

535 GOTO 390 

590 NEXT I 

550 GOTO 390 iREM DADO NON TROVATO 


600 REM ANALISI DI UNA SERIE DI TRE COLPI 

605 G05UB 5200 » GOSUB 910 ÌREM RITARDO «TOGLIE I DADI 

607 GOSUB- 5200 

610 PRINT " ( HOME ) • TAB ( 39 ) i REM VEDI 210 

615 PRINT" (HOME) 0 PASSA -- 1/6 F»P»C»Y«MIN.MAX" i iREM PET 
610 PRINT Hi " 0 PASSA - 1/6 F»P«C » Y«MIN«MAX" ÌREM TRS 

620 GOSUB 1000 


630 

IF 

R*="0" 

THEN 

810 

IREM 

PASSA 

Au GIOCATORE SUCCES 

6^0 

IF 

R> aa 1 AND R<> 

■6 THEN 1100 

iREM 

1/6 



650 

IF 

R*="F" 

THEN 

11*0 

JREH 

FOLI- 

•:es. ì 

j.1***> 

660 

IF 

R*='P" 

THEN 

1220 

:rem 

POKER 

<es » : 

13333> 

670 

IF 

R*="S" 

THEN 

1290 

:reh 

SCALA 

<E5, : 

23*56> 

680 

IF 

R*="Y" 

THEN 

1380 

ìrem 

YAM 

•;es. : 

55555> 

690 

IF 

R*='MIN 

!" THEN 1^20 

ÌREM 

hIN 

•;es. ì 

le?.- 

700 

IF 

R*= * MAX 

" THEN 1*70 

♦ REM 

MAX 

(es» : 

*-*5-«-5-*"6-»"6~26 > 

710 

GOTO 610 



iREh 

RISPOSTE NON PREVISTE 


750 REM VISUALIZZAZIONE DEL RISULTATO DOPO CONVALIDA 

760 K=8+NiGOSUB 50 00 ÌREM TRS K=i7+N PER PET (SU TRS ANCHE PRINT 
765 PRINT LEFT +(N+( N > « 8 > * 

770 FOR 1=1 TO 12iPRINT STR*-.T(N«I> « « .NEXT 

775 REM L' USO DI STRI. PERMETTE DI SERRARE LE CIFRE 

776 REM (NECESSARIO PER IL PET r CON 90 CAR/LINEA) ( 1 SOLO SPAZIO.- 
780 S=0 

790FOR 1=1 TO 12ÌS=S+B(I)*T(N»I>ÌNEXT 

795 T(N«0>=S iREM ULTIMO PUNTEGGIO 

800 PRINT STR*(S)i 

810 N=N+liIF NO NO THEN 210 iREM GIOCATORE SEGUENTE 

820 N=0 iREM FINE DI UN GIRO 

330 REM lA CLASSIFICA 51 STABILISCE SOLO A FINE GIRO 
690 S=0 Ì FOR 1=0 IO NJ-1 

895 Ir S=T(I«0) THEN I2=-l ÌREM PIU' DI UN PRIMO EX-AEOUQ 

850 IF SET(If 0) THEN S=T(I«0>!I2=I iREM PRIMO TEMPORANEO 

860 NEXT 

865 K=22!GOSUB 5000 iREM PET CLA ZONA GIOCO OCCUPA PIU' LINEE) 

865 K=191GOSUB 5000 IREM TRS (BASSO DELLA TABELLA) 

870 IF I2=~l THEN PRINT"EX-AEQUO" «TAB(90 > i'.GOTO 210 

875 PRINT NF(X2>«" E' PRIMO"iTAB(90>i 

890 GOTO 210 iREM GIOCATORE SEGUENTE 
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EX. 3 


999 REM ROUTINE D' INGRESSO 

1000 INPUT ’ »R*iR - VAL(R*>ìRETURN iREM PET 

10in REM 3 SPAZI» 1 CARATTERE» 3 CURSORE A SINISTRA 

1011 REM EVITA L' ARRESTO IN CASO DI RISPOSTA COL SOLO RETURN 

100 0 INPUT R6!R « VAL<R$)i RETURN iREM TRS 

1010 REM OUI IL SOLO RETURN LASCIA IL VALORE PRECEDENTE 


1050 REM CONVALIDA RIFIUTATA (COMBINAZIONE NON FATTA» O GIÀ' FATTA) 

1060 PRINT" (HOME) RICHIESTA NON CONFORME ALLA REGOLA DEL GIOCO" #TAB(A0) iREM PET 
1060 PRINT Hi"RICHIESTA NON CONFORME ALLA REGOLA DEL GIOCO"ii REM TRS 
1070 GOSUB 5Z00 ÌGOSUB 5Z00 iREM DOPPIO RITARDO 

1080 GOTO 610 iREM RITORNA ALL' ANALISI DEI RISULTATI 

1090 REM CONVALIDA DELLE FIGURE 

1099 REM DA 1 A 6 ES. Ó5ÓÓ2 

1100 IF T(N»R)>0 THEN 1050 iREM GIÀ' PRESA 

1110 FOR J = 0 TO i 

1120 IF N<I> = R THEN T(N»R)=T(N»R>+1 iREM SOMMA DEI VALORI DEI DADI 

1130 NEXT li GOTO 750 iREM VISUALIZZAZIONE DEI RISULTATI 

1139 REM "FULL" ES. 35535 

UAO IF T(Nr7»0 THEN 1050 iREM GIÀ' PRESA 

USO FI - N(0)iF2 = FI 

1160 FOR J • 1 TO AiIF N■ J) *> FI THEN F2=N(I) 

1165 NEXT I 

1170 FOR I = 1 TO AÌIF Nili <> FI AND N(I) -> F2 THEN 1050 

1180 NEXT I iREM A QUESTO PUNTO CI SONO SOLO 2 VALORI (FULL O POKER) 

1190 J»0iFOR 1=1 TO AilF F1=N(J> THEN J=J+1 
1195 NEXT I IREM U DEVE VALERE 102 

(OPPURE A PER UN POKERISSIMO PRESO DA UN FULL) 

1200 IF U=0 OR J=3 THEN 1050 iREM RIFIUTO DEI POKER 
1210 T(N»7)=--11G0T0 750 

1219 REM CONVALIDA DEL POKER ES. A 2 A A A 

1220 IF T(N»e>>0 THEN 1050 ÌREM GIÀ' PRESO 

1230 J=0iFOR I---1 TO AiIF N(I>=N(0) THEN J=J+a 
i2A0 NEXT 

i250 IF J>2 THEN 1280 ÌREM 1' DADO UGUALE A 3 O A ALTRI 

1260 FOR 1=2 TO AilF N(I> <> N(l) THEN 1050 
1270 NEXT 

1280 T(N»8> ;a l 1 GOTO 750 

1285 REM PER*UNA NOTAZIONE CHE TENGA CONTO DEL DADO NELLE COMBINAZIONI 

1286 REM SI METTEREBBE QUESTO VALORE IN T(N»...> INVECE DI 1 

1289 REM CONVALIDA DELLA SCALA ES. 3 5 2 A 6 

1290 IF TiN»9> > 0 THEN 1050 
.1300 FOR 1=1 TO A 

i310 Ir N(I-i) > N(X) THEN J=N<I)!N(I)=N(I-1)!N(I-1)=JSGOTO 1300 

1.320 NEXT I iREri I DADI SONO ORA SCELTI 

1330 J=0i FOR 1=1 TO A 

13A0 Ir N(D—N(I—1) i THEN J-j+i 

1350 NEXT 

j.360 IF J>0 THEN 1050 ÌREM SE J>1 CONVALIDEREBBE UNA SCALA DI A 
137 0 T'.N»9> = 1 ÌGQTQ 750 

.1.379 REM POKERISSIMO ES. 6 6 6 6 6 

1380 IF T(N»10)>0 THEN 1050 

1390 FOR 1=1 TO AÌIF N<0 ; «> N(I) THEN 1050 
1A00 NEXT 

1A10 T(N»iO) = liGOTD 750 iREM VEDI LINEA 1285 

iAZO IF T(N» li ) :• 0 THEN 1050 

1.A30 U=0 iREM CALCOLO DELLA SOMMA DEI DADI 

•-AA0 FOR 1=0 TO AiU=JrN(I) iNEXT 

1A50 IF TiNrlZ) 0 AND T(N»12) v ■■ THEN 1050IREM SE C E’ GIÀ' UN MASSIMO 
1A60 T (N» .il )=vj * GOTO 750 ìREM BISOGNA CHE nTN .MAX 



£5 » 3 


1*69 REM CONVALIDA DEL MAX 
1*70 IF T(N»12) > 0 THEN 1050 
1*80 J =0 

1*90 FOR 1=0 TO *SJ=J+N(I)SNEXT I 

1500 IF T<N»11) > 0 AND T<Nrll> > J THEN 1050 

1510 T(N»12)=JS GOTO 750 


2000 
2010 
2020 
2030 
20*0 
20*0 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
21*0 
2150 
2160 
2170 
2180 
2180 
2190 
2190 
2200 
2210 
2220 
2230 
22*0 
2250 
2260 
2270 
2280 
2290 
230 0 
2310 
2310 
2320 


REM MODO D* USO 

REM 

REM QUESTO E' SOLO UN ESEMPIO. UN BUON MODO D* USO SI OTTIENE 


REM EMPIRICAMENTE IN FUNZIONE DEL PUBBLICO E DEVE ESSERE BREVE 
CLS 'REM TRS 

PRINT " <CLR) " '.REM PET 

PRINT"IL GIOCO DEL YAM SI GIOCA CON 5 DADI' iREM IMPAGINATO 
PRINTSPRINT"SI FANNO DA UNO A TRE TIRI CONTROLLANDO"«REM A *0 CAR/t “ 
PRINT:PRINT"SE TENERE DEI DADI DEI TIRI PRECEDENTI." 

PRINT PRINT"LO SCOPO E* FORMARE DELLE COMBINAZIONI»* 

PRINT"GRUPPI DI 1» DI 2».,.» DI 6" 

PRINT "FULL ( COPPI A+TRIS) » POKER (GUADRIS)»" 

PRINT"SCALA <123*5*23*56)* YAM (5 DADI UGUALI."iREM YAM=POKERISSIMO 
PRINT"SI HA DIRITTO ANCHE A COMBINAZIONI CHE DANNO" 

PRINT"LA SOMMA DEI DADI» MA UNA» MIN»" 

PRINT"DEVE ESSERE INFERIORE ALL' ALTRA» MAX" 

PRINT 

PRINT"UNA COMBINAZIONE DEVE ESSERE PRE5A SOLO UNA VOLTA“ 

PRINTSPRINT"BATTERE UN TASTO PER LA PAGINA 2" 

R*=INKEY*:iF R*="" THEN 2180 
GET RSJIF R*"" THEN 2180 
CLS 

PRINT"(CLR)" 

PRINT"PER GIOCARE PREMERE RETURN* 

PRINT 

PRINT"ESAMINARE I DADI" 

PRINT"SCEGLIERE QUELLI CHE SERVONO PER UNA FIGURA" 


NEA 


iREM TRS 
iREM PET 
iREM TRS 
'.REM PET 

IREM PET. ENTER PER TRS 


PRINT"BATTENDO DA 1 A 6.PER SCEGLIERE DI NUOVO BATTERE PY 
PRINT"POI J PER GIOCARE" 

PRINT"O T SE SIETE SERVITO" 

PRINT 


PRINT"INFINE SCEGLIERE UNA COMBINAZIONE BATTENDO" 

PRINT "1»2. . .6rF»C»S»Y» MIN » MAX POI ENTER" '.REM TRS 

PRINTSPRINTIPRINT"BATTERE UN TASTO PER COMINCIARE IL GIOCO" 

GET RI»SIF R*=""THEN 2310 SREM PET 

R*=INKEY*SIF Ri="" THEN 2310 SREM TRS 

RETURN 


2999 

3000 
3005 
3010 
3020 
3030 
30*0 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
31*0 
3150 
3160 
3170 

3199 

3200 


REM CREAZIONE DEI DADI (PET) 

&%='<r<r<r<r*r4r • S REM 5 CURSORE A SINISTRA 1 IN BASSO 

DIM Di (6) SREM 6 DADI» Di(0) SERVE A CANCELLARE 

Hi=" QHHHD *+B* SREM SOPRA DEL DADO 

REM CON B* OGNI FACCIA DI DADO POSIZIONA IL CURSORE 
REM PER LA ZONA SUCCESSIVA 


A0*~ - d)<RVS> <OFF> d 
Al*=" I]<RVS> * (OFF) (] 
A2i=" |]<RVS:>* (OFF' |] 
A3i=" E(RVS>«*. (OFF) d 
A*i=" d <RVS> * (OFF) d 
A5i=" B(RVS)* * (OFF> B 
A6i=" "-HE:* 

Di ( 0 >=A6Ì+A6i+A6i 
DiU^Hi+AOi+Ali+AOi-HEtS* 
Di(2 > =HÌ+A2Ì+A0Ì+A*i+BSÌ 


SREM FASCIA SENZA PUNTI 
SREM " " = SPAZIO 


SBSi=" n ( RVS ) UQH (OFF) B • 

[REM et=BAS5Q DEL DADO 

•REM SERVE A CANCELLARE UN DADO 


D* ( 3 ) :=H*+A2*-*A i Vt-A-n+6'S* 


D* ( * > =H*+A5*+A0*+A5*+BS1i 


D* ( 5 ) =H*+A5*+A 1 (••«•A5*+eS* 

D»(é)=H*+A3*+A 0*+A3*+BS* 

REM MESSA IN OPERA DELLA TABELLA DEI RISULTATI 

K“iT: cosile 5000 srem porta il cursore in linea 
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3210 FOR J=0 TO 39sprint*-*#snext X 
3220 FRINÌ TAB(9> ■ 1 2 3 -1 5 6 F C S Y MIN MAX TOT* : REM 1 SPAZIO 
3230 FOR 1=0 TO 39SPRINT"-* t SNEXT I 
3260 RETURN 


2 999 REM CREAZIONE DEI DADI < TRS) 

3000 OEFSTR AfDìDIM D(6> 

3010 BF=STRINGF(5*24)-*-CHRF<26> iREM 5 CURSORE A SINISTRA 1 IN BASSO 
3020 REM CON 6* UNA META' DEL DADO POSIZIONA IL CURSORE PER LA SEGUENTE 


3030 A0=CHR4( 191 > 
3040 A1-CMR6(143 > 


I 

s 


3050 AZ^CHR+i 183>+CHR'I> < j.87> 


3060 AS-GHR’M HI >+CHR^< 142.) 
3070 A^-CHR't < ±79) 

3080 A5-CHRH» < HO > 


0 


3090 
310 0 
3U0 
3120 
3130 
3 HO 
3150 
3160 


s 


A6=AQ«-A0 
A7-HÌ+A1+A1 

Ù< 1 )=A6-4A1^A6+E:^A7^A1^A1 
D •: 2 > =A2+A0+A6+B*+A7+A3 
D-: 3.)«A2+Ai+Aó+Bt+A7+A3 
D H ) » A2+ A 0♦ A2+B*+ A 3«* A1«■ A3 
O •: 5 > -A2+AHA2+B++A3+A1+A3 
D i 6 > -AZ^KAZ+B W*3+A5+A3 


D 

a 


Ai 



excvMptc. : D (2.) 


3170 A(B>=* *iD<0>=A8+B*+A8 

3200 REM TABELLA DEI RISULTATI 

3210 K---6S&OSUB 5000 ÌREM PROGRAMMA COMPATIBILE PET- SAREBBE PIU’ 

SREM SEMPLICE «PRINT 6» 

3220 PRINT STRINGI-63*140) 

3230 PRINT TAB<9)*1 23456FCSY MIN MAX TOTAL* 


3240 PRINT STRING6(63*140) 
3250 RETURN 


SREM GRANDE TRATTO MARCATO jjj 


3998 REM VISUALIZZAZIONE DEL DADO K-ESIHO 

3999 REM GOSUB 4050 PRODUCE UNA VISUALIZZAZIONE IMMEDIATA 

4000 REM GOSUB 4000 DA' UN EFFETTO CHE SUGGERISCE LA ROTAZIONE DEL DADO 

4010 FOR 11=0 TO 2+3*RND(0> SREM PET DA 2 A 7 ITERAZIONI 

4010 FOR 11=0 TO 2+RND(5) SREM TRS 

4020 PRINT H;H3»!G0SUB 5100 SPRINT D(RND(6))S .REM TRS 

4020 PRINT * < HOME > «SSGOSUB 5100SPRINT DM 1+R»RND( 0 ) > * i REM PET 

4030 NEXT II 

4050 PRINT*(HOME) 'S SGOSUB 5100 SPRINT D-6(K> SREM PET 
4050 PRINT HJH3.SG0SIJB 5100SPRINT D(K> i SREM TRS 

4060 RETURN 

4070 REM ATTENZIONE AGLI INDICI IN CASO DI GOSUB FREQUENTI 
GESTIONE DEL CURSORE 

3000 PRINT * < HOME ) " * ì FOR 11=0 TO KSPRINT* * ;SNEXT li !RETURNiREM PET 
5000 PRINT HiSFOR 11=0 TO K1PRINT CHRM26) i SNEXT IISRETURNSREM TRS 
5100 FOR S=i TO 8*1 SPRINT* * S SNEXT SS RETURN iREM PET 

5100 FOR S=1 TO 9*15PRINT CHR*(25>»SNEXT SS RETURN SREM TRS 
5110 REM 2 ROUTINE SUPERFLUE CON PRINT® (TRS) 

RITARDO 

5200 FOR 11=0 TO 400SNEXT IISRETURN 
5210 REM I RITARDI SONO MOLTO IMPORTANTI 

5215 REM SI POTRANNO ABBREVIARE UNA VOLTA ABITUATI AL GIOCO 















1 REM ********************************** 

2 REM * GENERATORE DI CARATTERI GRANDI * 

3 REM ********************************** 

QUESTO PROGRAMMA PERMETTE* PARTENDO DA UNA PAROLA 0 DA UNA FRASE* DI STAMPARE 
UN GROSSO TITOLÒ PER PRESENTARE UN LISTATO 0 UN TABULATO* 0 DI FARE 
SCORRERE SULLO SCHERMO UN TESTO VISIBILE DA LONTANO <SLONGAN* MESSAGGI..) 

FUNZIONA COME IL GENERATORE DI CARATTERI DI UN SCHERMO MONITOR 
DI CUI FACILITERÀ' LA COMPRENSIONE. SCRITTO PER TRS*PET*APPLE 



2 CLEAR 200 5REM TRS <ALLOCAZIONE STANDARD DI 150 E' INSUFFICIENTE> 

5 POKE 10553*255 {REM TRS EVITA NOIE CON READ/DATA 

10 DIM 7.*<94>*G*<1259)*T*<50>*T<50> {REM APPLE 

10 DIM Z+ < 18 ) * Gl» (35*ó)*T(50) {REM TRS* PET 

15 REM SI E’ LIMITATO IL TESTO A 50 CARATTERI* 94=5*19-1» 1259=36*7*5-1 
17 REM Z+ CONTERRÀ' DELLE SEZIONI ORIZZONTALI DI CARATTERI 
20 DATA * *** ■*■* *“ ,•*****■ r ••**** •*■* ■ 

30 DATA •* **•*■ * ■*• * ■*• *■*■* * ■ 

40 DATA "* * •*“** ■*“* **•,■* * *•*■** *■ 

50 DATA * ****■»■ * * ■*• * %■** ** • 

55 REM G* CONTERRÀ' PER OGNI CARATTERE GLI INDICI CHE RIMANDANO 

56 REM ALLE SEZIONI DI Z*. 18 SEZIONI BASTANO PER A-Z*0-9 

60 DATA 1*2*2*3*2*2*2* 4r2»2r4»2r2r4r i*2*5*5*5*2*1 «REM ABC 

7 0 DAT A ^*2*2?2*2*2**^* 3*5*5* ,: f*5*5*3* 3*5*5*^*5*5*5 l REM D E F 

80 DATA l*2*5*5*ó*2*i* 2*2*2*3*2*2*2* 1*8*8*8*8*8*1 tREM G H I 

90 DATA 9*9,9*9*9*2*1 * 10*11*12*12*11*10*2* 5*5*5*5*5*5*3 {REM J K L 
100 DATA 2*19*1*4*2*2*2*2* 2*15*1^4*6*2*2*2* 1 *2*2*2*2*2* 1 {REM M N O 
HO DATA <4*2*2*^*5*5*5* 1*2*2*2*2*6*16* ^*2*2*^4*11*10*2 {REM P Q R 
120.DATA 1*5*5*1*9*9*1* 3*8*8*8*8*8*8* 2*2*2*2*2*2*1 {REM S T U 
130 DATA 2-2*2*2*2*17*8* 2*2*2*2*1^4*1^*17* 2*2*17*8*17*2*2!REM V W X 
140 DATA 2*2*17*8*8*8*8* 3*9*18*8*7*5*3* 1*2*6*1^4*15*2*1{REM Y Z 0 
150 DATA 7*12*12*12*12*12*12* 1*2*9*18*8*7*3* 1*9*9*1*9*9*{REM 1 2 3 
160 DATA 9*18*8*7*10*3*18* 3*5*^4*9*9*2* i * x8* 8* 1 *2*2* 2* i « REM *ì 5 r> 

170 DATA 3*9*18*8*7*7*7* l*2*2*i*2*2*l* 1*2*2*2*1*6*7 ;REh 789 


180 FOR 1=0 TO 18iREAD Z*(5*I?5*I+4> {NEXT I iREh APPLE 

180 FOR 1=0 TO 18{READ Z4(I){NEXT I iREM PET TRS 

190 FOR J=0 TO 35 {REM 26 LETTERE ♦ lù CIFRE 

200 FOR J=0 TO ó {REM 7 SEZIONI PER CARATTERE 

210 READ K:K«K-1 

220 L=35*I+5*J{G*(L>L+4)=Z*(5*K> {REM APPLE 

220 G*(IrJ)=Z*(K> {REM TRS PET 

230 NEXT J 
240 NEXT I 

250 INPUT"TESTO "»T* {REM TESTO DA VISUALIZZARE 

260 L=LEN ( T* ) {FOR J=G TO L-i {REM CONVERSIONE IN CODICE* A « 

270 K=ASC(T*(I>) {REM APPLE 

270 K=ASC(MID*(T*»I+1»1>> {REM TRS PET 

280 T<I>=-l {IF K>64 AND K<91 THEN T(I)=K-65 

285 REM APPLE (ASCII + 128) 64=192» 91=219» 65=193 

290 IF K>47 AND K<58 THEN T(I)=K-22 

300 NEXT I 


0. .35 


310 CLSUPRINT CHR*<23>> 

310 PRINT"(CLR)" 

310 CALL -936 
310 HOME 
320 K=Q JL1=6 

330 IF L-KCL1 THEN L1=L-K 
340 FOR J=0 TO 6 
350 FOR 1=0 TO Ll-1 
360 I1=T<I+K){IF Il=-1 THEN PRINT" 
370 I1=35*I1+5*J{PRINT G*(Il»Il+4>» 


{REM TRS (DOPPIA LARGHEZZA IN OPZIONE) 

{REM PET 

{REM APPLE INTEGER 
{REM APPLESOFT 

{REM 6(APPLE PET)»5 O 10 TRS»13 SE 80 COLONNE 
{REM REGOLA LUNGHEZZA ULTIMA LINEA 
{REM SCANSIONE PER 7 LINEE 
{REM SCANSIONE PER CARATTERI ORIZZ. 

"»{GOTO 380 
{REM APPLE 


370 PRINT G$(I1*J)»" "» {REM PET TRS 

380 NEXT I 

390 PRINT{NEXT J 

400 PRINT{K=K+L1{IF K>=L THEN 320 .‘REM RICICLA IL MESSAGGIO 

410 GOTO 330 {REM SEQUENZA DEL TESTO 

395 FOR 1=0 TO 500{NEXT I {REM RITARDO OPZIONALE SU STAMPANTE 

420 REM PER UNA MIGLIORE COMPRENSIONE INSERIRE DEGLI SPAZI 
430 REM PER NON TAGLIARE LE PAROLE 
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RIASSUNTO COMANDI BASIC 



ABS 

28 

Funzione che restituisce il va¬ 
lore assoluto di una espressione 
numerica V = ABS (X — Y). 


AND 

41 

Operatore logico “AND” - Si ap¬ 
plica a delle espressioni logiche ed a 
degli interi IF A < B AND B < A 
THEN PRINT “IMPOSSIBLE”. 


ASC 

37 

Funzione che restituisce il codice 
ASCII (da 0 a 255) di un carattere 
K = ASC (“*”) : J = ASC (A$). 

(T.R.S. 
liv. 1) 

AT 


Vedere @ (fine di lista). 


ATN 

31 

Funzione arco-tangente (Radian¬ 
ti Pii = 4 * ATN (1). 


AUTO 

86 

Comanda la numerazione automa¬ 
tica delle linee in un programma in 
corso di scrittura AUTO - AUTO 
100,10 

(Apple) 

CALL 

69 

Chiama un sottoprogramma in 
linguaggio macchina (cf. SYS) 
CALL-936 attiva la cancellazione 
dello schermo. 


CATALOG 


Sistemi a floppy disk (lista il nome 
dei Files contenuti in un dischetto). 

(T.R.S.) 

CDBL 

31 

Restituisce un numero al formato 
doppia precisione uguale all’argo¬ 
mento. 


CHR$ 

37 

Restituisce un carattere dato dal 


suo codice (0 a 225), in modo parti¬ 
colare tutti i caratteri non disponi¬ 
bili alla tastiera PRINT CHR$ (23) 
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(T.R.S.) 

CINT 

29 

Restituisce un numero al formato 
intero (intero per difetto). 

(T.R.S.) 

CLEAR 

23 

Libera le zone di memoria accordate 
alle stringhe variabili. 

Es: CLEAR 300 riserva in più 300 byte 

(Applesoft) 

CLEAR 


Inizializza le variabili a zero 

(T.R.S.) 

CLOAD 


Carica programma da cassette (cf. 
manuale specifico) 


CLOSE 


Sistemi a floppy disk. Chiusura 
logica di un file. 

(Apple) 

CLR 

23 

Cf. CLEAR. 

(T.R.S.) 

CLS 

50 

Cancella lo schermo. 

(P.E.T.) 

CMD 

77 

Comando del bus IEEE 488 (cf. 
manuale specifico). 

(Apple) 

COLOR 

72 

Determina il colore del prossimo 
carattere o punto visualizzato. 
COLOR = 0 (nero)....COLOR = 15 
(bianco). 


CONT 

87 

Riprende l’esecuzione arrestata 
con l’istruzione STOP o con il 
tasto BREAK. 


COS 

31 

Funzione coseno (argomento in 
radianti). 

(T.R.S.) 

CSNG 

31 

Restituisce un numero al formato 
reale in semplice precisione. 


DATA 

24 

Istruzione che permette di riunire 
tutti i dati costanti di un programma 
DATA SI, NO, FORSE, 3.14.16 
(virgola qualche volta obbligatoria). 
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(P.E.T.) 

DEF.FNX 

26 

Definizione di una funzione nel 

(Applesoft) 



programma 

DEF FNA (X) = A + B. 

(T.R.S.) 

DEF DBL 

14 

Definizione di gruppi di variabili 
in doppia precisione, in interi in sem¬ 
plice precisione. 

(T.R.S.) 

DEF INT 

15 

In stringa di caratteri. 

(T.R.S.) 

DEF SNG 

14 


(T.R.S.) 

DEF STR 

14 

DEF INT I-K : DEFSTR Z. 


DELETE 


Sopprime un gruppo di linee di un 
programma: 

DELETE 20 DELETE 100-150. 


DIM 

23 

Definisce una matrice (e delle strin¬ 
ghe in Apple) 

DIM T (10), V (5,6) DIM A$ (10). 

(Apple) 

DSP 

87 

Istruzione di messa a punto, pro¬ 
voca la visualizzazione delle variabili 




specificate ogni volta che le stesse 
vengono modificate DSP Tl, T2. 


EDIT 


Comando speciale che permette di 
correggere delle linee di programma 
senza ricomporle (vedere manuali 
specifici). 


ELSE 

41 

Ausiliare di IF, definisce un ramo 
complementare “ALTRIMENTI” 
“SE NON” IF A = B POI PRINT 
“UGUALE” ELSE PRINT “DIFF’ 


END 

88 

Termina l’esecuzione di un pro¬ 
gramma. 

(T.R.S.) 

ERL 

82 

Funzione che restituisce il numero 
di linea corrispondente all’ultimo er- 


rore. 
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(T.R.S.) 

ERR 

82 

Funzione che restituisce il codice 
errore (infatti 2 * (codice - 1), codice 
= ERR/2 + 1. 

(T.R.S.) 

ERROR 


Simula la comparsa di un errore 
es. ERROR (14) (errore di tipo 14). 


EXP 

31 

Funzione matematica esponenzia¬ 
le E = EXP (1) A = EXP (B + C). 


FIX 

31 

Restituisce la parte intera. 

(Applesoft) 

FLASH 


Realizza un inversione continua 
dello schermo. 


FOR 

45 

Attiva, per un numero di volte spe¬ 
cificate, la ripetizione di un gruppo 
di istruzioni. 

FOR I = 1 TO visualizza N SPEP 2 

(P.E.T.) 

(Applesoft) 

FRE 


Funzione che visualizza la quanti¬ 
tà di memoria disponibile PRINT 
FRE (0) (vedere MEM) # FRE TRS 
visualizza la memoria disponibile 
per delle strighe. 

(P.E.T) 

(Applesoft) 

GET 

59 

Acquisisce l’ultimo carattere im¬ 
postato da tastiera (come INKEYS) 
GET A$. 


GOSUB 

49 

Chiama un sottoprogramma (su¬ 
broutine) alla linea indicata GOSUB 
1010. 


GOTO 

41 

Rompe la sequenza e rinvia verso 
la prossima istruzione da eseguire 
GOTO 1000. 

(Apple) 

GR 

73 

Passaggio al sistema grafico (40 x 

40 punti) nessun operatore. 

(Apple) 

HCOLOR 


Sceglie un colore in alta risoluzio- 


ne HCOLOR = C (da 0 a 7) alta riso¬ 
luzione. 
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(Apple) 

HGR 

Passa in sistema grafico alta riso¬ 
luzione. 


HGR2 

Con o senza 4 linee di testo. 

(Apple) 

HLIN 

Chiamata di una routine che vi¬ 
sualizza dei tratti orizzontali, HLIN 
0,39 AT20 (linea di ordinata 20 e 
ascisse da 0 a 39). 

(Applesoft) 

HOME 

Cancella lo schermo. 

(Apple) 

HTAB 

Fa una tabulazione orizzontale 
HTAB X. 


IF 

41 Test ed esecuzione condizionale di 


una azione (sovente un salto) IF N = 
100THEN GOTO 36 (-1 = vero,0 = 
falso). 


(T.R.S.) 

INKEYS 

59 

Prende l’ultimo carattere impo¬ 
stato 10 Z$ = “INKEYS”: 

IF Z = “ ” THEN GOTO 10. 

(T.R.S.) 

INP 

66 

Funzione che restituisce sotto for¬ 
ma decimale (da 0 a 255) il valore 
presente alla porta d’indirizzo indi¬ 
cato I = INP (A). 


'INPUT 

57 

Interrompe il programma e provo¬ 
ca l’attesa delle variabili specifiche. 


INT 

29 

Funzione che restituisce il valore 
intero per difetto di un’espressione 
numerica. 

A = INT (X + 0,5). 

(Applesoft) 

INVERSE 


Passaggio in video inverso. 


LEFTS 

35 

Funzione che estrae la parte sini- 


stra di una stringa di caratteri. A$ = 
LEFT$ (Z$,L) (In Apple Integcr: AS 
= Z$ (0,L - 1). 
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LEN 

35 

Funzione che restituisce la lon-—-— 
ghezza di una stringa. 

FOR 1 = 1 TO LEN (Z$): PRINT” =” 

: NEXT 


LET 

19 

In generale, forma completa dell’ 
assegnazione LET A = B + C 


LIST 


Comanda l’elenco di tutto o parte del 
programma in memoria. 

LIST 20 LIST50 - 100 (Apple: LIST 50, 
100) LIST 50 - 


LOAD 


Carico dei dati (vedere manuali 
specifici). 


LOG 

31 

Funzione logaritmo. L’argomento 
deve essere positivo V = LOG (A) + 
LOG (B). 

(Apple) 

MAN 

86 

Numerazione manuale delle linee 
di programma (per annullare AUTO). 

(T.R.S.) 

MEM 


Funzione senza argomento che for¬ 
nisce la quantità di memoria disponi¬ 
bile (vedere FRE) IF MEM 100 
THEN PRINT “MEMORY OWER- 
FLOW”. Nessun argomento. 


MID$ 

35 

Funzione che estrae da una stringa 
alla posizione indicata, una sotto¬ 
stringa di lunghezza data: Zl$ = 
MID$ (Z,$,P,L) Apple Integer: Zl$ 
=Z$ (P,P + L - 1). 

(Apple) 

MOD 

33 

Funzione che dà direttamente il resto 
di una divisione in numeri interi R=A 
MOD B (equivalenti: R=A-B* (A/B) 
con A,B interi. 


NEW 


Comando che cancella il programma 
in memoria (comprese le variabili). 
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NEXT 45 

Apple NODSP 87 

Applesoft NORMAL 

NOT 40 

NOTRACE 87 

(T.R.S.) ON ERROR 82 

GOTO 

Applesoft ON ERR GOTO 

ON GOTO 41 

ON GOSUB 49 

OPEN 

OR 41 

(T.R.S.) OUT 66 

(Apple) PDL 


Complemento necessario a FOR per 
delimitare la sequenza da ripetere 
(loop) NEXT NEXT I NEXTI.J. 

Annulla l’ultimo DSP attivo. 

Fine di inversione video. 

Operatore logico che dà il contrario 
dell’espressione logica che segue NOT 
IF NOT (A>B) THEN PR1NT 
“A<=B” (NOT 0 dà - 1) 

(NOT N dà - (N+l)) 

Annulla l’azione dell’istruzione 
TRACE precedentemente eseguita. 

Gli errori che sopraggiungono sa¬ 
ranno trattati dal programma. 

L’oggetto dell’azione standard 
(messaggi e interruzione) 

Realizza uno scambio multiplo 
(dirottamento all’indirizzo K) ON K 
GOTO 100,120,36,60 K deve valere 
1,2 ... (altrimenti ignorato). 

ON K GOSUB 100,36 ... stessa fun¬ 
zione per i sottoprogrammi. 

Apertura di file (vedere manuali 
specifici). 

Operatore logico dove 
IF A>B OR C<D THEN 10 - 1 
(OR N dà -1). 

Istruzione che presenta sulla porta di 
indirizzo dato (da 0 a 225) un byte di 
valore dato (da 0 a 255) OUT P.O. 

Funzione che restituisce la posizione 
delle paddle di gioco X= PDL (M) 
(M: da 0 a 3) 
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(T.R.S.) 


RESET 


(T.R.S.) 


(Apple) 

(T.R.S.) 


RESTORE 

RÉSUMÉ 

RETURN 

RIGHTS 

RND 

RUN 


73 Spegne il punto di coordinate 

indicate (precedentemente acceso 
per mezzo di SET RESET (X,Y) 

(X da 0 a 127, Y da 0 a 47). 

Reinizializza i file DATA (il READ 
seguente leggerà all’inizio del primo 
DATA). 

82 Ritorno del sottoprogramma d’er¬ 

rore attivato con ON ERROR GOTO 
RÉSUMÉ (alla linea errata) 
RÉSUMÉ NEXT (alla linea seguente) 
RÉSUMÉ 150 (alla linea 150). 

49 Istruzione che consente l’uscita da 

un sottoprogramma, ritorno al pro¬ 
gramma dopo il GOSUB di chiamata. 

35 Funzione che estrae da una stringa di 
caratteri la parte destra di lunghezza 
data Z$ = RIGHTS (Z$,L). 

63 Funzione che restituisce un numero 
casuale (da 0 a 1 o da 1 a N ecc...) 
H = RND (N). 

89 Comando che attiva l’esecuzione di 
un programma con inizializzazione 
a zero delle variabili. RUN-RUN 100. 


SAVE 

SCRN 


SET 


SGN 


Immagazzina un file su una periferi¬ 
ca (memoria di massa). 

Funzione che restituisce il colore dal 
punto di coordinate indicate. 
C=SCRN (X,Y) (X,Y da 0 a 39). 

73 Accende il punto dello schermo di 
coordinate indicate. 

SET (X,Y) (X da 0 a 127, Y da 0 a 47). 

29 Funzione che restituisce -1,0 oppure 
1 secondo il segno dell’argomento, 
S= SGN (X). 
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(Apple) 


(T.R.S.) 


Applesoft 


(T.R.S.) 


PEEK 


PLOT 


POI NT 


POKE 


POP 


POS 


65 Funzione speciale, ritorna un nume¬ 
ro da 0 a 255 che rappresenta il byte 
all’inizio indicato I=PEEK (A). 

73 In sistema grafico, visualizza un 

punto alle coordinate indicate e del 
colore fissato dall’ultima istruzione 
COLOR. PLOT X,Y (da 0 a 39). 

Funzione che restituisce -1 (vero) se 
il punto (x,y) dello schermo è acce¬ 
so, 0 in caso contrario (falso). 

IF POINT (X,Y) THEN GOTO .... 
(X da 0 a 127, Y da 0 a 47). 

65 Istruzione speciale, scrive all’indiriz¬ 

zo indicato il byte corrispondente a 
un numero dato (da 0 a 255). 

POKE A,I (A da 0 a 65535). 

In caso di sottoprogramma bloccato, 
il successivo RETURN risalirà di 
una linea (dietro al penultimo GOSUB). 

Funzione che restituisce l’indirizzo 
del cursore sulla linea in corso (da 0 
a 63 T.R.S.) (da 0 a 39 P.E.T. e Apple 
soft) I=POS (0) (argomento “fasullo” 
ma necessario). 


PRINT 


RANDOM 

READ 


REM 


51 Istruzione che visualizza dei dati sul¬ 

lo schermo (attiva anche stampante) 
PRINT “PIPPO”, A,B. 

63 Realizza una routine che genera dei 
numeri a caso. 

Legge i dati raccolti nei Data e li de¬ 
stina alle variabili indicate READ 
A,B,T, (3). 

38-80 Riserva la linea che contiene REM a 
delle osservazioni o impaginazioni 
del programma, non sono eseguite 
dal programma. REM FINE DEL 
TRATTAMENTO. 
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SGN 


29 

SIN 31 

(P.E.T.) SPC 

(Applesoft) SPEED 


SQR 33 

STEP 45 

STOP 89 

(T.R.S.) STRINGS 37 

STR$ 37 


(P.E.T.) SYS 69 


(T.R.S.) SYSTEM 69 


Funzione che restituisce -1,0 
oppure 1 secondo il segno dell’argo- 
mento S= SGN (X). 

Funzione trigonometrica. Seno 
(argomento in radianti, S=SIN(X)). 

SPC (N) provoca la visualizzazione 
di N spazi. 

Permette di rallentare la velocità di 
visualizzazione allo schermo. 
SPEED=V (da 0 a 255). 

Funzione radice quadrata. L’argo¬ 
mento deve essere positivo. 

C=SQR (A*A+B*B). 

Ausiliare nel loop FOR, precisa il 
passo del contatore. 

FOR X=1 TO 3.14 STEP 0.1. 

Provoca l’arresto del programma. 

Funzione che restituisce una stringa 
ottenuta per ripetizione di un carat¬ 
tere PRINT STRINGS (60, “*”) 

Funzione che restituisce una stringa 
di caratteri a partire da un’espressio¬ 
ne numerica. Z$- STR$ (D/T)+ 
"KM/H”. 

Chiamata di un sottoprogramma in 
linguaggio macchina dall’indirizzo 
indicato SYS(A) (vedere CALL). 

Attivazione con chiamata di un 
programma in linguaggio macchina, 
rispondere a *? con il nome (carica¬ 
mento) oppure con l’indirizzo 
d’entrata. 
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TAB 53 

TAN 31 

(Apple) TEXT 73 

THEN 41 


(P.E.T.) TI 

(P.E.T.) TI$ 

PRINT 

TIMES 

TO 

TRACE 87 

(T.R.S.) TRON TROFF 87 

(T.R.S.) USING 53 

A-. 

USR 69 


Ausiliare di PRINT, inserisce degli 
spazi fino alla colonna indicata (da 0 
a 255 per T.R.S.) PRINT TAB (10) 
A; TAB (N+1)B. 

Funzione trigonometrica tangente 
T—TAN (X). 

Ritorna al sistema di visualizzazione 
alfanumerico (25 linee da 40 caratte¬ 
ri) dopo l’utilizzo del sistema grafico. 

Completamento di IF. Può a volte 
essere omesso. 

IF A > B THEN GOTO 10. 

Contatore di tempo in l/60esimo di 
secondo. 

Contatore di tempo hh, mm, ss 

Regolazione dell’ora con semplice 
visualizzazione TIS = “123500”. 

Vedere GOTO e FOR. 

Comando di messa a punto: provoca 
la visualizzazione dei numeri di linea 
delle istruzioni operanti. 

Attiva e disattiva il tracciato delle 
istruzioni operanti. 

Ausiliare di PRINT. Specifica una 
stringa che serve da modello di edi¬ 
zione PRINT USING” 

Chiamata di un sottoprogramma in 
linguaggio macchina del quale si è 
messo l’indirizzo nella locazione 0 e 1 
(P.E.T. oppure 16526 e 16527 (TRS) 
istruzione di salto agli indirizzi 
10-11-12. A=USR (0). 
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(T.R.S.) 

(P.E.T.) 

(Apple) 

(Apple) 

(P.E.T.) 

Applesoft 

(T.R.S.) 


VAL 

VARPTR 

VERIFY 

VLIN 

VTAB 

WA1T 

@ 

? 


38 Funzione che restituisce un valore 

numerico a partire dai caratteri 
A=VAL (“31”). 

14 Restituisce l’indirizzo memoria del 

dato corrispondente ad una variabile 
(indirizzo della locazione per una 
stringa) A=VARPTR (N$). 

Comando che verifica la buona ese¬ 
cuzione di un Save (vedere manuale 
specifico). 

Chiamata di una routine che visua¬ 
lizza dei tratti verticali 
VLIN 0,39 AT 20 (linea di ascisse 20 
e di ordinata da 0 a 39). 

Tabulazione verticale. 

Sospende l’esecuzione fino a rag¬ 
giungimento dell’indirizzo dato 
(configurazione binaria indicata). 
WAIT A,B (B da 0 a 255 (PET) 
WAIT A,B,C (Applesoft) 
A=addresse, B=AND, C=XOR 

51 Con PRINT indica una posizione 
dello schermo. PRINT N “TEX”. 

Abbreviazione di PRINT. 
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INDICE ANALITICO 



Pagine 

Accenti 

66 

Assegnazione 

10 

Animazione 

51 

Argomento 

17 

ASCII 

65 

Base di numerazione 

69 

Binario 

69 

Byte 

70 

Calcolo di Boole 

26 

Cancellazione 

33 

Carattere (Tipo) 

68 

Carattere (Controllo) 

68 

Casuale (Numero) 

43 

Concatenazione 

22 

Condizionale (Salto) 

27 

Contatore 

26-29 

Conversione 

10-20 

Coordinate cartesiane 

51 

Dialogo 

38 

Divisioni successive 

21 


Editing 

58 

Effetti speciali 

53 

Errore di conversione 

11 

Esadecimali 

12-68 

Escape 

66 


Formato di variabili 

7 

Funzioni 

17 


Formattazione 

Pagine 

36 

Generatore di caratter 

66 

Grafici (caratt.) 

49 

Incondizionato (Salto) 

27 

Indici 

13 

Intero (Numero) 

7 

Linea di programma 

55 

Linguaggio macchina 

47 

Loop 

29 

Loop di ritardo 

31 

Lunghezza di stringa 

15-22 

Messa a punto (debug) 

4 

Modulo comando 

56-59 

Modulo 

21 

Movimenti 

51 

Nome di variabile 

6 

Numero (di linea) 

59 

Organigramma 

55 

Ottimizzazione 

8 

Periferiche 

37 

Pi (tt) 

20 

Priorità (valutazione 
deile espressioni) 

10 
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Reale (Numero) 
Riservata (parola) 


Pagine 


Pagine 


8 

6 


Salto 

27 

Scambio 

29 

Sottoprogramma 


in linguaggio macchina 

32-47 

Stringhe di caratteri 

22 

Suffissi 

6 


Tabelle 13 

Tastiera 40 

Temporizzazione 31 

Tipo di variabile 6-7-25 

TRI 22 


Variabili 5 

Visualizzazione 35 
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Come tutte “le lingue viventi”, 
il BASIC viene applicato in real¬ 
tà a questa o a quella macchina 
sotto forma di dialetti più o me¬ 
no particolari. Questo libro si 
sforza di descrivere in modo 
metodico il BASIC delle tre 
macchine più diffuse sul mer¬ 
cato mondiale: Apple, PET, 
TRS 80, e, naturalmente, i loro 
derivati. 

Questo approccio comparato 
permette di approfondire la co¬ 
noscenza del linguaggio e dà 
un’idea del grado di standar¬ 
dizzazione del BASIC. Ciò faci¬ 
literà anche la conversione da 
un determinato personal com¬ 
puter agli altri di programmi 
esistenti. 

Numerosi esempi e programmi 
fatti “girare” chiariscono i con¬ 
cetti proposti. 
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